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BEGIN 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY HER 
COPIES THEREOF MAY NOT BE PRO i 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
se eokt ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


FACILITY: MOUNT Utility 
i ABSTRACT: 


! AUTHOR: D. H. Gillespie, 


These routines handle the mounting of magnetic tape 


! ENVIRONMENT: 


VAX/VMS operating system, including privileged system services 
and internal exec routines. 


CREATION DATE: 05-Dec-1977 


: MODIFIED BY: 


v03-021 HHO046 Hai Muang 10-Aug-1984 
Increment refcount stored in UCB on mount. 


v03-020 HHO041 Hai Huang Som dyh, 1966 
Remove REQUIRE ‘LIBDS$: SLIB.OBJJMOUNTMSG.B352'. 
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v03-019 HHOO3S Hai Huang 10-Jul-1984 
Fix truncation errors. 
v03-018 mMD0290 Meg Dumont 10-Apr-1984 14:41 
Fix to the return from SMTACCESS code were ACCESS, ould 
n rs 


be set to normal processing with out process 
possible error cond tt ° . 


v03-017 LMP 
Cha 
ORB 
v03-016 MMD0270 Reg Dumont 23-Mar-1984 9:29 
Change the process ng of the accessibility character fields 
in the VOL1 and or HDR1 Label to call the installation 
specific accessibility routine. The return from this 
routine determines the users access to the volume and/or file. 
This support includes saving the ANSI version number from the 


wie future processing of the file header accessibility 


v03-015 HHO002 Hai Huang 01-Feb-1984 
Add job-wide mount support, i.e. always deallocate 
mount List entry to paged-pool in condition handler. 


v03-014 HHO001 Hai Huang 16-Jan-1984 14:52 
Fix bug in privilege check code. 


v03-013 MMD0215 Meg Dumont 3-Jan-1984 16:04 
Fix bug in protection check code. 


v03-012 MMD0199 Meg Dumont 25-Aug-1983 10:12 
Fix bug where if /PROTECTION is specified SYSTEM and 
OWNER are not piven access to the tape. SYSTEM and 
OWNER should always have access to mounted tapes. 


v93-011 MMD0186 Meg Dumont, 7-Jul-1983 9:59 
Make the default for AVL/AVR the same from the DCL call 
and from the system service call. 


0221 L. Mark Pilant, 28-Mar-1984 10:03 
one UCest .cuNUIC to ORBSL_OWNER and UCBSW_VPROT to 


VO3-010 DMW4042 DMWa 
Remove (S)LOG_ENTRY 


v03-009 mMD0179 neg Dumont 26-May-1983 15:15 
Change VOL1 to indicate ANSI level 4 when writing a SYSTEM CODE 
in the VOL1 label 


v03-008 MMD0136 Meg Dumont, 12-Apr-1983 17:29 
Added support for writng and interrupting the VOL1 
QWMER iDENTIFIER field, so that it is no longer 
treated as a VAS fie strictly. Added support for 
the underscore as w valid character to tape. 


lp 7-Jun-1983 


VOE-007 MMDO113 Meg Dumont 29-Mar-1983 0:27 
Added support for setting AVR, AVL. Added support for new VMS 
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16-5e -1984 01:24:03 VAX-11 Bliss-32 V4.0-742 P 
1 =300n 138% 94:96:93 DISKSVMSMASTER: CMOUNT .SRCIMOUTAP.B32:1>— at v0 
protection on tape, which includes piteretencing 6 VOL2 


abel. Also reformated so that routines common INIT, 
MOUNT and the MTAACP could all be shared. 


v03-006 mmMD0105 eg Dumont 17-Feb-1983 13:25 

Changed call to CLEAR_VALIO to issue a I10$_AVAILABLE 
v03-005 mmMD0002 Meg Dumont, 3-Jan-1983 14:50 

Allow user with read access to tape to mount it writelocked. 
vO3-004 mmD0001 Meg Dumont, 13-Aug-1982 13:07 

Change from call to SET_VALID to Q10 IO$_PACKACK 
v03-003 $TJ0302 Steven T. Jeffreys, 18-May-1982 

Add support for /NOUNLOAD qualifier. 
v03-002 $TJ0261 Steven T. Jeffreys, 22-Apr-1982 


Do not mung device allocation access mode. 
Set the DEADMO bit properly for multi-volume mounts. 


v03-001 sTv0255 Steven T. Jeffreys 04-Apr-1982 
Use common 1/0 routines where possible. 
vO2=N22 $TJ0154 Steven T. Jeffreys, 02-Jan-1981 
Fix external references to use general addressing mode. 
v02-021 DMw0018 David Michael Walp 17-Dec-1981 
Increase the size of the translation table to 256 
v02-020 DMWw0017 David Michael Walp 3-Dec-1981 


Return non-ANS!I characters as space and fix edit cut 
and paste error ( wrong index ) 


v02-019 DMW0016 David Michael Pols 15-Sep-1981 
Uppercase and set NOT Unused the MVL entries. 
v02-018 $TJ0121 Steven T. Jeffreys 10-Sep-1981 


Make descriptor references use symbolic offsets.! 
Checked in a new source. 


v02-017 DMWw0015 David Michael Walp 18-Jul-1981 
Upcase Volume labels, Added ist Reel Volume Protection 
and UIC, handles BAD UICs in VOL1 


v02-016 DMWwO012 David Michael Walp 30-Jul-1981 
Store need privilege mask in MVL 

vO2-015 DMw0011 _ David Michael Wal 22-Jul-1981 
Detect write ring. Prompted by SPR 

v02-014 DMw0010 David Michael Mole 20-Jul-1981 
Reset the blocksize when the density is reset. 

v02-013 DMw0009 David Richegl Walp 6-Jul-1981 
Clean up defaulting of density. 


v02-012 DMW0006 David Michael Walp 10-Jun-1981 
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18-56 =1984 01:24: VAX-11 Bliss-32 V4.0-742 Pa 4 
1 =300 138% 94:26:98 DISKSVMSMASTER: CMOUNT . SRCIMOUTAP.B32:1>— (1) 
Major rewrite of MOUNT_TAPE code to allow operator assist 
to work. The Loop that was in MOUNT_TAPE to ALLOCATE and 
ASSIGN devices is now in the MOUNT VO 6 READ VOLLABEL 
more 


and MOUNT_TAPE may now be called more than once 
then a single device is specified to be used ). 


v02-011 DMW0004 David Michael Walp 11-May-1981 
Stuffed volume access character in MVL and reguire 
VOLPRO or UIC ownership to MOUNT/FOR an ANSI tape. 


v02-010 DMW0003 David Michael Walp 27-Apr-1981 
Made ‘'/FOREIGN'’ and ‘’/NOLABEL’’ work the same 
v02-009 ee David Michael Walp 14-Apr-1981 


ded V3 volume accesiblity code, cleaned up prohentcae holes, 
added storage of ANSI volume file set id in MVL. 


v02-008 RLR36704 Robert L. Rappaport enor 1l=198t 
Correct the problem of MOUNT return Oe S$_VOLINV when 
the MOUNT command follows a DISMOUNT/NOUNLOAD sequence 
in a command procedure. 


v02-006 ACG0169 Andrew C. Goldstein, 18-Apr-1980 14:02 
Bug check on internal errors 
v02-005 ACG0167 Andrew C. Goldstein, 18-Apr-1980 13:38 


Previous revision history moved to MOUNT.REV 


Nee ee eee ee 


a 
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LIBRARY see pet denny #h 18,450": 
REQUIRE "SRC$:MOUDEF .B32'; 


FORWARD ROUTINE 


ERROR_HANDLER, ! handler to clear valid on 
' secondary UCB's 
KERNEL_HANDLER : NOVALUE, ' kernel mode exception handler 
MAKE_TAPE_MOUNT, ' kernel moude tape mount 
APE : NOVALUE, ' mount magnetic tape 
READ_VOLLABEL, ' read and verity VOL1 Label 
RESET_DENSITY =: NOVALUE, reset the dersity default 


SET_CRARACTER : NOVALUE; set device characteristics 
EXTERNAL ROUTINE 
ALLOC_LOGNAME, 


' allocate logical name 
ALLOCATE _MEM, 


' allocate memory 


4 
t) 
CHECK_PROT ! check the UIC protection 
ENTER~LOGNAME ! enter logical name 
GET_CRANNELUCB, ' get UCB from channel 
GET_RECORD ! get current record drive is reading 
LIBSCVT_oTé : ADDRESSING_MODE (GENERAL), 
C ADDRESSING_MODE (GENERAL), ! lock 1/0 data base 


LOCK I0DB : ADD 
PROCESS _VOL2_LABEL, 


process VOL2 Label 
SEND_ERRLOG, 


send message to error logger 
ACP ” 


START_A startup 
TAPE_OWN_PROT, determ ne owner and 
protection of tape 


TRAN_LOGNAME , translate logical name 


oer 


148 yerSenrt9es 1:24:05 AKI Bltescsz vs-dc7az page 5) | ay 


because more then a si mae @ spocacter at a time is specified 
in the ZASCII. t BLISS KLUD 


i] 
( 
' 
i] 
' 
i 
i The table will upcase a..z and return space for any non ANSI 
‘a’ characters. 

T 


RANSLATION TABLE = UPLIT BYTE ( 
ZAST] 


ZASCII * !'*) 28°" ()#+,-./0123456789:; <2, 
ZASCII * ABCDEFGHIJKLMNOPQRSTUVWXYZ = _', 


3 8 781 } UNLOCK_10DB : ADDRESSING_MODE (GENERAL); ! unlock 1/0 database 

; 1 7 g 1 

3 ¢ 765 1 EXTERNAL 

3 ree 1 BLOCKSIZE. ' value of fBLOCKSIZE : 

3 765 (1 CHANNEL, i channel of tape being mounted 
: 5 708 1 CLEANUP. FLAGS : BITVECTOR, ! cleanup flags 

: ° 767 «#1 CLEANUP” ALLOC : BITVECTOR i greenup allocation flags 

; 768 1 CTLSGL_VOLUMES : ADDRESSING_MODE (ABSOLUTE), 

: 7 1 DEVICE CHAR : BBLOCK, | characteristics of device 
3 9 770 #1 i “current being mounted 

3 re 44) ! DEVICE_INDEX : LONG VOLATILE, inden '6 othe device and 
s 26 798 1 MOUNT =2rt JONs : BITVECTOR, i mount option bits 

: 246 774:«1 LABEL C OUNT, i number of eosis” specified 
> 264 0775 «#1 ORDS $2, i yalue of /RECORD: 

: 245 B28 1 : BBLOCK; i VOL1 Label 

3 re 777 «(1 

3: 24 re 1 LITERAL 

: 48 779 «1 PROTO_LRVT_LEN = SBYTEOFFSET (RVTSL_UCBLST) + (4*DEVMAX), 

; 230 44 ! ow PROTO “AVL LEN = MVLSK_FIXLEN + (mvCSK  LENGTH*LABMAX) ; 

3 go) 14-14 1 ACCESS ! user's access to magnetic tape 
; 3g 0783 1 ANSI_LABEL : BBLOCK (80), i buffer to store Labels 

; 25 0784 1 BLOCRS : WORD, ' block size for this volume 
3; 254 0785 1 FIRST_V_UIC ! oar UIC of ist tape 

: 255 0786 1 FIRST-Y~PROT, i t tape protection 

3; 256 0787 #1 10_STATOS : VECTOR C4,WORD), ‘ 170 status blo 

3; 257 788 1 LABEL_VER, ' decimal ANSI Label version 
3 $28 789 #1 PRIVICEGE. MASK : REF BBLOCK, ' user privileges 

3 59 790 #1 PROCESS _UIC, met a —_re process 

$ sey 791 «1 PROTO_vtB : BBLOCKCVC8$C_LENGTH) Es" orype y 

; 61 0735 1 INITIAL cee et: LEN TH OF 4 9 Oe 

; $66 7935 «1 PROTO_RVT LOcKEPROTO LEN] LEN oF e 

: 6 0794 1 INITIAL (¢ Rep PROT O_RVT avd : Byte. (0)), 

> 264 0795 1 PROTO_MVL : BBLOCKCPROTO_MV orype ay 

: 0796 1 INITIAL ( REP BROTO. nv at 0 Syie (0)), 

: a4 1 Te PROT, ' tape protection 

3 798 #1 VOLUME-UIC, ! owner UIC of tape 

; teas : WRITE_RING : BITVECTOR C 1]; ! are any write rings missing 
3 8 1 BIND 

; \ STARID = UPLIT ("DECFILE11A'), 

3 1 ! UPLIT was used instead of appagemd ane here, the code 

3 1 roduced is the same (ie the constant strin generated). 

; ’ PLIT was used becouse EuSTRANS TABLE generates a warning error 

$ 1 

: 1 

: 1 

3 1 

: 1 

: 1 

3 1 

3 1 

3 1 
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GLOBAL ROUTINE READ.VOLLABEL (VOLUME_LABEL) = 


iO 
Wire 


3 1 

3 1 

; Be 1 !e4 

; 5 1! 

; 39 ! FUNCTIONAL DESCRIPTION: 

: 298 1 This routine reads the first block on the magnetic tape and 
3 + ! } checks that it is an ANSI tape 

: 301 1 | CALLING SEQUENCE: 

; 4 ! READ_VOLLABEL (ARG1) 

: 304 1 | INPUT PARAMETERS: 

; 305 } ARG1 = address of volume Label string descriptor 

: 09 1 | IMPLICIT INPUTS: 

3 4 : : CHANNEL = channel number assigned to device being mounted 
: 310 1 | OUTPUT PARAMETERS: 

3 } : NONE 

; ig 1 | IMPLICIT OUTPUTS: 

3 14 1! 1 - VOL1 mages tape label 

3 BID Zz VOLUME _UIC - owner of tape 

3 18 ! : VOLUME _PROT - tape protection 

: 316 1 | ROUTINE VALUE: : 
3 $38 1! SS$_NORMA - if valid ANSI volume Label 

3 0 1! SS$_NOTLABELMT = not Labeled ANSI magnetic tape 

3 1 1! SS$_INCVOLLABEL - incorrect volume label 

3 g 1! SS$_DEVOFFLINE = device not on system 

: Z : SS$_MEDOFL - medium off_line 

: 325 1 ' SIDE EFFECTS: 

3 § 1! NONE 

: 32 8. 

: 8 1 ! USER ERRORS: 

: 9 : : NONE 

: 331 1 i-- 

3 § 1 

: BEGIN 

: 335 EXTERNAL 

: CTLSGL_PHD : REF BBLOCK ADDRESSING_MODE (ABSOLUTE); 

; 3s VOLUME _LABEL : REF BBLOCK; ! volume Label ( from command Line ) 
; ? ! string desc 

3 ; LOCAL 

; CURRENT_RECORD ' Current record the tape drive is reading 
> 344 UCB : REF BBLOCK, i Address of uc 

3 5 UPCASE_ INPUT : VECTOR f VL1I$S_VOLLBL, BYTE i. 

3 $ UPCASE TAPE : VECTOR C VLISS_VOLLBL, BYTE J, 

3 TAPE _OONER_STS, 

3 8 STATOS, 


y$-ev-1964 01:24:05 YANG Btise=32 y4.0-742 page 8 
i] 


VMS_TAPE; ! Set if VMS created tape 
BIND 
SECONDS = UPLIT (-10000000,-1); ! one second in 100 nsec units 


; Enable handler to clear valid on all but current device 
ENABLE ERROR_HANDLER; 


' The following is here for historical reasons onl 

ieeeeeeneeenes RARAARAEAAAKAERAAEAAAAAAAAAAEAAAAAAAAAAAAARAAAAAARARAAAARARARAERARARAREE 
i Here we have inserted two extra Q10's (IOS_REWIND) which eorerenti? are not 
needed but which in fact are - gh = take care of an anoma phot 

sometimes occurs when the MOUNT command appears in a conmens ile 
immediately following a DISMOUNT/NOUNLOAD command. 


ve 
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Under certain circumstances the MOUNT fails with a SS$_VOLINV status. 
ped problem is due to a complicated interaction involving Q10 Crepetching 
Logic. . the MAGTAPE ACP, ona the MOUNT command. What occurs is the 
owing. 
DISMOUNT, before Rete J looues a S$Q10W with an 1/0 function code of 
10$ MACPCONTROL 'IOSM is request is forwarded to the ACP and 
DI T then has os ion image andtone 


The ACP then issues a a with a function aoe of I0$_REWIND! IOSM_NOWAIT, 

while in a 06s allel, MOUNT is starting up and it proceeds to set the — * 
UCBSM_VALID bit 4 UCBSW_STS (which in this case was still on due to the 

volumé previously having been mounted) and then MOUNT issues its own 

$Q10W with an IOS_REWIND funciton code. 


In some instances, on an REWIND Q10 does not get as far as REQCOM 
until of isee MOUNT 's WIND hes been queued. If this occurs, INIT's 
queued REWIND is shurtel up before the ACP actually regains control and 
the driver pes no trouble since it finds the UCBSM_VALID bit still on. 
Unfortunatel - as soon as the ACP regains wo “following the 
driver s WFIKPCH, the ACP clears the UCBSM_VALID bit. The next Q10 
seoued by MOUNT will fail due to the absence of the UCBSM_VALID 


oo 
38 


The poten ( pereyesee KLUDGE) herein implemented, sinply byreet en extra 
couple of $a] h I0$_REWIND rune on code feoie'et expt nets 
settings of Re UcBSA VALIB bit, bef ere he real logic of MOUN egins. 
These OW's allow th ne eve potentia nteracti — to occur, and Biter they 


have finished, we again set the UCBSA VAL ID bit on in the normal wa 
Wn Bn RA. ae ee eee Deak 1D One On IA Che NOFMAL VOY. sees 


The above is no longer tr hat is we have elimentated Lng rece condition 
mentioned above by not do ng ssuin the rewind at dis mount 
but infact markin tne, drive pee la ae the fol towing: 10°s Hs 

the volume valid then issue the rewind, which is neccesary because 

of the preMSCP drivers will not rewind on this funct he MSCP drivers 
will and the second 10 here becomes an NOP. 
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STATUS = 


! some things which need to be set up only the first time thru 
IF .DEVICE_INDEX EQL 0 
THE 

BEGIN 


— that the user is correct on the command line about write ring 
! = status 


WRITE_RING C 0 J = .MOUNT_OPTIONS C OPT_WRITE J; 

! get the UIC of the current process 

SGETJPI ( ITMLST = UPLIT( WORD(4), WORD(JPIS_UIC), LONG(PROCESS_UIC,0,0))) 
! determine user's privilege from process privilege mask 

PRIVILEGE_MASK = CTLSGL_PHDCPHDSQ_PRIVMSK); 

END; 


' Set up the device characteristics. 
! offline. 


SET CHARACTER (); 


' Set up the default volume UIC and volume protection. 
' current process. This is done in case this is a 
! then Labels have been specified. Default protection is no world or 
! group access to the tape. 


VOLUME_UIC = ,PROCESS_UIC; 
VOLUME~PROT = 0; 


! Jf there are more Gov ices then labels specified then exit here becouse We 
' can not check a label if we do not know it. This goes not matter if it is 
$ the first time thru because the label must be specified or /OVER=ID used 

! ( in which case we will return the Label ) 


VICE_INDEX NEQ 0) 
VICE INDEX GEQ .LABEL_ COUNT) 
- T OPTIONS C OPT_FGREIGW J OR .MOUNT_OPTIONS C OPT_NOLABEL J ) 


This can be done even if the drive is 


Default UIC is the 


T 
tion tape to BOT and check status 
10 seconds before deciding that the device is offline 
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non-ANSI tape or more device 
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-11 BL Ales =32_V4.0-74 
SVMSMASTER: (MOUNT. S 


ifcdeoctage On:24:05 yA 


X= 
SK 
INCRU J FROM 0 TO 9 DO 
BEGIN 
STATUS = DO_10(¢ 


CHAR = . CHANNEL 
FUNC = 10$ PACKAGK 
1OS8 = 10, STATUS 04); 
STATUS = D0_10 (  CRAN = . CHANNEL, 
FUNC = [0$_ REWIND, 
10SB8 = 10 STATUS) 
IF .STATUS THEN STATUS = .10 STATUSLO); 
IF ;STATUS NEQ SS$_ EDOFL ANS .STATUS NEQ SS$_VOLINV THEN EXITLOOP; 
IF SSETIAR (REQIDT~= 999, DAYTIM = SECONDS, EFN = TIMER_EFN 
BEGIN 
WAITER (EFN = TIMERS EFN); 
SCANTIM (REQIDT 
SSETEF (EFN = TIMER iw: 


! ALL errors other than device not in system or medium off Line reported 
i to user 


IF NOT .STATUS THEN ERR_EXIT (.STATUS); 


og 5 bo a if the write ring is really there, only if we think it should 


IF .WRITE_RING C 0 J 
THEN 


BEGIN 
! allow us to get at the information nicely 
BIND DEVICE_DEPENDENT = IO_STATUS C 2 ] : BBLOCK; 
STATUS = DO_I0 —_: = .CHANN ete 
IF .STATUS THEN SYATUS = 3° STATU HOE): 
IF NOT .STATUS THEN ERR_ EXIT"(. STATUS); 
! NOTE: assignment done only if we think a write ring should be there 
WRITE_RING C 0 J] = NOT (.DEVICE_DEPENDENT C MT$V_HWL J); 
END; 
! Do not read the tape if /FOR ints ry A ~ pot + =" VOLPRO and OPER 
! This allows the operator to ze 
! ( run away tape condition with veoh x. “tapes 
' Please note that this really is a hack to allow naling to get 2 around the 
! fact that sone hardware c ” no goat with blank tapes. This sho 
! not be the defacto for int tializing tapes. 


IF  .PRIVILEGE_MASK C PRVSV_VOLPRO J 


ee 


JMOUTAP.B3201°" 


yb-ep-1964 01:24:05 VAN at tee=32 V4-0-742 page 1 
ue gPAd yi GE_MASK [ oPnyev OPER J 


“WOUNt OPTION OPT FOREIGN ] OR .MOUNT_OPTIONS C OPT_NO ) 
AND. nat . OPTIONS ti OPT_OVR_ACC ' 2 


dD. T“OPTIONS OPT: “bya “EXP j 
THEN RETURN SS$_NORMA 


! Read first block on tape and check status 
STATUS = DO_IO (CHAN = .CHANNEL, 
i ° = ios READLBL, 
volts STATUS, 
IF .STATUS THEN SFaTus =" -10_STATUS(O]; 


! If first record is TM then not ANSI yep pe 
! If label is more than 80 characters ignore error 


c- eSTATUS) AND (.STATUS NEQ SS$_DATAOVERUN) 


MEUM OOOO LS WN" 


TESTES SESE SLOSS ALOIS 


NOUS UNO 


BEGIN 
RESET _DENSITY ( 
RETURR $$$ TNOTLABELMT: 


! Now check that first block is VOL1 ANSI Label 
fe gvOLIcwm. VLILIDJ NEQ ‘VOL1' 


PREP ERRRE 
NOUBWN OO 
JANA 


oo 


BEGIN 
RESET_DENSITY 
RETURA SS$_ NOTLABELMT: 


BDOOOoooocoooo 


wn 


! determine owner and VMS protection of tape 
TAPE_OWNER_STS = TAPE_OWN_PROT (VOLUME_UIC, VOLUME_PROT, .PROCESS_UIC, VOL1); 


' Get the ANSI version from the label and subtract the character 0 to 
= aE sppme: value rather than ASCII. Use the channel to get the 


LABEL_VER = .VOLICVL1$8_LBLSTDVER] - ‘0’: 
UCB ="KERNEL “CALL(GET_CRANNELUCB, . CHANNEL); 


' Call ee ocecesstptlity system service to check the accessibility char 


: fee the record phos ene UCB is reading. The meconetest tty 
: t move t rom under us! Thus we will compare 
: th : to the f eld after the tall and if the tape was moved we punt 
' the operation. Grant the user access to the volume according to 

! the error code returned from the system service. 


CURRENT_RECORD = KERNEL CALL (GET -RECORD, .UCB); 
ACCESS = $MTACCESS LBL NAM = 
VIC = Process. IC 
STD_VERSION = -LABEL_VER, 


wu 
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K 14 
1e$ep=1984 12:45:87 DISKSVMSMASTER: COUNT -SRCIMOUTAP.B32;1°" (25 


ACCESS_CHAR = 0 
ACCESS-SPEC = MfASK_NOCHAR, 
TYPE ="MTASK_INVOL1); 
STATUS = KERNEL CALL(GET_RECORD, .UCBS; 
IF .CURRENT_RECORD NEQ .STATUS 
THEN ERR-EXIT(SS$_TAPEPOSLOST); 
Now check the ACCESS returned from the servi For SS$_FILACCERR 


! @ 
! check to make sure /OVERRIDE=ACCESS was spe {fied and the user 

! has or ere then set to check VMS protection. 

: NOFILACC, SSS_NOVOLACC return the code 

! to the user. In this case the user has no access to the tape volume. 
' + RE the user all access. For SSS_NORMAL check the VMS 


IF ACCESS EQL SS$_NOVOLACC 
OR .ACCESS EQL SS$_NOFILAC 
THEN ERR_EXITT.ACCESS 


IF ACCESS EQL SS$_FILACCERR 
THEN 


nen 
°o 
be | 
n” 
wn 


C 
): 


BEG 
IF NOT .MOUNT_OPTIONSCOPT_OVR_ACC) 
THEN ERR EXIT (ACCESS) 
IF NOT .PRIVICEGE_MASKCPRVSV_VOLPROJ 
EN ERR_EXIT(.ACCESS); 


E 
aes = SS$_NORMAL; 


! If ACCESS is 0 then the user has full access to the tape regardless 
! of the VMS protection specified 


IF NOT .ACCESS THEN VOLUME_PROT = 0; 
: a9 age was created by VMS then the syeten code should match that 
: Ae - If the system code does not then do not process the VOL2 
IF CHSEQL(10,STARID,10,VOLICVL1$T_SYSCODEI,0) 

THEN VMS_fAPE = { 
ELSE VMS_TAPE = 0; 
first record on tape is VOL1. The next record wey, be a VOL2 


abel if it is then process it otherwise process the HDR! label. 
NOTE: User volume Labels may intervene. 
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1$-Fe0-1984 01:24:05 VAKI1 Blisscs2 vé.0-742 page 13 
! ANSI tape, but can't read HOR! 


IF NOT .STATUS AND (.STATUS NEQ SS$_DATAOVERUN) THEN RETURN SS$_NOTLABELMT; 
If the rocess| was VMS' ‘, and there is a VOL2 Label then process it. 
After process ng ~ VOL2 Label we must check the ACCESS field so that 

¥ the ,bcceass ibyt 7 pan As. ave the user full access to the volume 
aon’ the VAS protection must be set up so that the user has full 
access to the volume. 
IF “Ws TAPE AND .ANSI_LABELCVL2$L_VL2L1DJ EQL ‘VOL2' 


BEGIN 
PROCESS VOLL_LABEL (HOLUNG UTE, VOLUPE_PROT, .PROCESS_UIC, 


NSI“L ; 
enpit NOT .#°°ESS THEN VOLUME_PROT = 0; 
JF -ANSH LABELCHD1SL_HD1L1D3 EQL "HDR1’ THEN EXITLOOP; 


! Must have VOLPRO privilege or UIC ownership to mount a ANSI tape /foreign 


Gen -MOUNT_OPTIONS C OPT_FOREIGN J OR .MOUNT_OPTIONS C OPT_NOLABEL J ) 


BEGIN 

ten -PRIVILEGE_MASK C PRVSV_VOLPRO J) OR (.PROCESS_UIC EQL .VOLUME_UIC) 
BEGIN 
RESET DENSITY (); 
ac rUnn sss _NORMAL; 

ELSE RETURN SS$_NOPRIV; 

END; 


If the owner identifier field of the VOL1 Label can not allow the user to 
access the tape with out forceing the user to speci ty /OVERRIDE=OWNER_ID 
and the p egcose teh tty routine specified to check VMS protection than ~ 

punt MOUN 


IF NOT .TAPE_OWNER_STS AND NOT .MOUNT_OPTIONSCOPT_OVR_VOLOJ AND .ACCESS 
THEN ERR— ~EXIT TSS$_VOLOERR) ; 


! Now check if the labels match. First, test the length of the input string 

IF .VOLUME_LABEL CDSCS$W_LENGTH] GTRU VL1$S_VOLLBL THEN ERR_EXIT (SS$_MTLBLLONG); 
: Next translate the labels into yepercase and put in ° * for any non-ANS! 

! "a" characters’ found. Pad with space, in case the label from command is 
less than six characters long. 
CHSTRANSLATE (TRANSLATION |TABLE, woes Ore LAeL Cosceu LENGTH] + VOLUME _LABELCDSCSA_POINTER], * °, 


LBL, UPCA 
CHSTRANSLATE (TRANSLATION_TABLE, VLISS~ “VOLLBL 


N 
VOLICVC1$T VOLLBLI, 
VLI$S"V VOLLBL: UPCASE_TAPE) ; 


IF CHSNEQ (VL1$S_VOLLBL, UPCASE_INPUT, VL1$S_VOLLBL, UPCASE_TAPE) 


ee 


"16 

eae a ee Obie ey eee et ae Ao ee camouraP.e3204%" (os 
ie ; THEN RETURN SS$_INCVOLLABEL; 
i 
1 


RETURN SS$_NORMAL; 
END; ! end of routine READ_VOLLABEL 


. wou, 
-IDENT \V04-000\ 
«PSECT SPLITS,NOWRT ,NOEXE,2 


41 31 31 45 4€ 49 46 43 45 464 P.AAA: .ASCII \DECFILE11A\<0><0> 
aeeee ae 
A 44 ¢8 ¢ ¢6 $2 99 $8 ¢ " ne eASCIT V1 28°C) 84,-./0123456789: 5 <=>7\ 
ry 3 “8 rH <6 $ $3 $3 $¢ 50 i 0036 eASCII = \ ABCDEFGHIJKLMNOPQRSTUVWXYZ an 
ri 4 $8 rH 38 $3 ¢ $3 $¢ 3} ‘ 3 eASCII = \ ABCDEFGHIJKLMNOPQRS TUVWXYZ \ 
aeuEEERER ET ans 
SRERURE ORG Ee at 
SRRRRRRRR ER we 
EEE SELEL St oo 

FRFFFFFF FFE769 ? aioe rt To  paeeeaee -1 
0304 a ; “WORD 772 
$908 000° 0011 -ADDRESS PROCESS UIE 
00000000 00000000 11¢ -LONG 0, 


-PSECT SOWNS,NOEXE,2 


608 ACCESS: .BLKB 4 
0004 ANSI_LABEL: 


-BLKB 
s005e BLOCKSZ: .BLKB 
0 ; FIRST_V_UIC: 
0005C FIRST_V_PROT: 
00060 10_STATUS: 
BLKB 


00068 LABEL_VER: 
.BLKB 


0 


4 
4 
8 
4 


sor}08e ON:24:07 yA 


Q006C PRIVILEGE MASK: 4 


00070 PROCESS UiC: 

00# 00074 PROTO_VCB: 
00# 00160 PROTO_RVT: 

00# 00164 pRotonvi: 

00288 VOLUME_PROT: 

0028¢ vOLUNE UIC: 
00290 WRITE_RING: 

-BLKB 


AKSVMHASTERSCMGUNT SRCIMOUTAP.B3203%" (33 
4 
002363 ; 
001323 
001643 : 
4 
4 


1 


STARID= P.AAA 
TRANSLATION_TABLE= P.AAB 
SECONDS= 


P.AAC 
DEVICE, TEXTAN AL I0_STAT 
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SCODES,NOWRT 2 
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8opn188e TbiseiGF | Nd UwSHASfERscMOUNT. SkcamouTAP.83203%" (2S 


6A dD 8 PUSHL CHANNEL ; : 
A DD QO03A PUSHL ; ; 
OE a a ; ; 
E 7C G004e CLRO = =($p) 3; 0944 ; 
7E 70 9004 CLRQ = =( SP) ; : 
FE £C 00066 CLRQ = =(SP) ; : 
Ze 7C 0004 CLRQ = = (SP) : : 
56 DD Q004A PUSHL 3 : 
24 dD 9004 PUSHL #36 ; : 
A DD 0004 PUSHL CHANNEL ; ; 
SA dD 0005 PUSHL ; : 
ef 36 be 0008 NOVL” RO, STATUS = : 
00006 fF D 0086 TSI “Yer INDEX 3; 0949 
01 T EF O00SE EXTZV #1, #1, MOUNT OPTIONS#1, RO > 0956 : 
00 9 FO 90064 INS, ROL AO, Mle WRITE_RING ; 
E 7C 00068 CLRQ = = (SP) ; 0960 . 
7E D4 0006D CLRL = (SP) : ; 
0000" CF 9F O006F PUSHAB P.AAD ; : 
E 7¢ 00073 L -(SP) ; : 
3 D4 0007 CLRL_ = =( SP) ; : | 
000000006 00 07 FB 00077 CALLS #7, SYSSGETJPI ; : | 
OC Ab 000000006 9F DO 0007E MOVL  aacTLSGL PHD PRIVILEGE MASK > 0964 & 
0000v CF 09 FB 00086 18: CALLS #0, SET CHARACTER ; 097% : | 
O2ec C6 10 46 DO 00088 MOVE’ PROCESS~UIC. VOLUME UIC ; 0978 : 
0228 C6 D4 00091 CLRL VOL UME _PROT ; 0979 2 | 
00006 CF D3 00095 rst DEVICE- INDEX ; 0986 3 | 
00006 CF 00006 CF bt 00098 CRP DEVICE. INDEX, LABEL_COUNT ; 0987 : 
08 01 Ag 03 EO O00A4 BBS § #3, MOUNT_OPTIONS+1, 2$ ; 0988 3] 
03 01 Ad om 59 bag BBS ie MOUNTOPTIONS+1, 2$ ; : | 
52 D4 00081 28: CLRL J ; 0994 3 | 
7E 7C 00083 3$: CLRQ = =( SP) ; 0999 : 
7E 7C 0008 CLRQ = =(SP) ; i] 
7— 7C 0008 CLRQ = =(SP) ; 7 
7E 7C 00089 CLRQ = =( SP) ; 2 | 
56 DD 00088 PUSHL = RG 3 3 | 
08 DD 00080 PUSHL  # ; ; 
6A 0D 000BF PUSHL CHANNEL ; 31 
1A DD 000C PUSHL #26 ; : 
68 ¢ FB O00C CALLS + COMMON_10 ; + 
54 bd 900¢ Move = RO, STATUS ~ Tsao | 
E 7C 000¢ CLRQ ($P) ; 3) 
7E 7C Q00CB CLRQ = = (SP) ; . 
fe 7C 00D CLRQ = =( SP) ; 23 
fe 7C O00Cr CLRQ = =(SP) ; & 
0D 0000 PUSHL = RG ; 2 | 
4 DD 000d PUSHL #36 ; : 
A DD 0000 PUSHL CHANNEL ; >| 
1A DD 0000 PUSHL #26 ; a | 
68 ¢ FB 000p9 CALLS #12, COMMON_10 : ; 
Y 00 0000C OVL RO, STATU : : 
03 4 €9 0000F BLBC = STATUS, 4 1003 ; 


? v0 
- 138-32 _V4.0-742 ge V 
RHR CSN MEINERS? Heo nlt™ S| |B 
~ : : 4 
TAP . a 
z STATUS, _S/ATUS ; 1004 $4 
ae 54 f BY BoOES us: Emer” SPafus ab25 : 
roasts: “St 2 OF odbEE CHPL STATUS, #596 : 7 
54 BF * 1 Q00E BNEG + 1005 : 
7E OSE? BE 3 000F CLRL = i ‘] 
E Be OFC PUSHAB SECONDS : 3 
0000" CF 9F PUSHL ; : 
19 DD CALLS #4, SYSSSETIMR : 
9 3 ES bb BLEC RO, 6S ; 1008 7 
000000006 90 6 ES 001 Bec 5 | 
a4 PB O01 6 CALLS AT, SYSSWAITFR : 1009 | 
000000006 00 & 0011 CLAL of (SP) : e 
? 03€7 e 3¢ V9 CALLS” #3 SYSSCANTIN : 1010 4 
000000006 0 rt: DD 901 CALLS. #1) SYSSSETEF ; 09% . 
000000006 00 gy FB a 7 ae oe : 1. 
09 7H Oh 001 seThu 78 | 
03 14 001 we 6 : 1017 He 
FFE? Bh OOISS 78: bees Starus. 8s : 2 
05 Sone wae i - 
? Co £9 00140 88: LBC” URITE-RING. 118 : 10 2 
a RRR ee cer : : 
7E 7C 00147 he et : ¢ | 
7E 7C 00149 CL =(88) i. 
7F 7C 00148 cLRG ng. f 
56 DD bey PUSHL #39 : 3] 
27 DD 0014F PUSHL CHANNEL : ‘7 
1A OD 4 2 CALLS #12, COMMON_I S sass | 
68 gc FB O01 HOVE RO: "STATUS : 10 | 
54 9 00 00138 BLBC STATUS, 98 : i | 
96 66 8 13¢ ROVZWL 10 STATUS, STATUS ; 1034 3 
54 1 BLBS . 4 3 | 
05 5 FS oles 9S: BURL «STATUS ~- : 
67 1 FB 001 :  EXTAV. 83S HL. DEVICE_DEPENDENT#2, RO 3 
oi 50 r 145 118: bee Ro, abv eee ASK. 138 : 1930 ie 
C6 01 6 Ei bole | OBBE «888° Sprivitece pa , : 1051 . 
oe yo 8 gS £0 goigh BBS OMT OB TORET "148 1052] | 
1 A 1 BBE ORG. MOUNT “OPTIONSe4. 138 : 105 ; 
S PS BAB Be i ARH Hiss: 18 pnd er | 
4 ; : 
3 Ua ogo $1 Oi? By SHE 
E Pe oolse etna =tSPD : : 
fe 2C OOIgC MOVZBL H80, -(SP) ; 
7 50 BF 9A 001 PUSHL ; 
eB BD gyiA CLRQ.  =(SP) 
3 DD 001A6 PUSHL 6 
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#12, COMMON_I0 
RO, STATUS 


TUS, 14$ 
eyatus STATUS 
us, 15$ 

ATUS, #2104 

LI, #827084630 
, RESET_DENSITY 
1 
0 


<VsBNv2—< | HN M 


< 
Oo 
raed 


#4, TAPE_OWN_ PROT 
RO, TAPE-OWNER_STS 
vor 1+79 LABEL~VER 
#48, LABEL_VER 


SP 
GET_CHANNELUCB 
#4, @#SYSSCMKRNL 
RO, UCB 


ucB 
# 


SP 
GET_RECORD 

#4, “@ASYSSCMKRNL 
RO, CURRENT RECORD 


-(SP) 
LABEL_VER 
PROCESS_UIC 

#6, SYSSMTACCESS 
RO, ACCESS 

uc 

# 


SsP 
GET_RECORD 
#4, @ASYSSCMKRNL 


ATU 
RRENT_RECORD, STATUS 


#548, -(SP) 

#1, CIBSSTOP 
Actes 
RO, #8868 


1 
208 #8876 
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TAP 18-56 -1984 01:24:03 VAX-11 Bliss-32 V4.0-742 Page 19 
yO4-000 Wea eeea tees ee te ee ehAStencchounr cacamourap.es2n4" cos vol 
? 01 F CALLS #1, LIBSSTOP ; 21 
oo00009c «BF Ad 6 i i 208: CHL ACCESS, #156 ; : | 
06 04 Ad 06 E A S #6, MOUNT_OPTIONS+4, 21$ : : 
67 0 OF PB B85h5 CAS Mi. biBssToP : - 
06 0c 86 9 EB g 21$: BBS #21, @PRIVILEGE_MASK, 22$ : : 1 
AO Ab 0D A PUSHL access ; : 1 
67 0 F CALLS #1, LIBSSTOP : 31 
AQ AG 1 0 338: MO ACCESS ; :] 
Oe 0288 AE GE Shere cos: les ActESS. ats | 
18 AB 0000" CF 4 23 i 248: cAeCS ¥9 » STARID, VOL1+24 : ; 1 
52 1 i A MOVL #1, VMS_TAPE : : 
: 11 0028 BRB ; :] 
D4 AA 25$:  CLRL —«*VMS_TAPE F 21 
E 7C OOZAC 26$: CLRO =(SP) : 31 
7E 7C OO2A CLRQ  =<(SP) : 31 
7E 50 8F 9A 0008 MOVZBL #80, -(SP) ; 2] 
AS = A6sOF: «00284 PUSHAB ANS{_LABEL : : 1 
iE 7C 00287 CLRQ 0s = (SPY ; : 1 
56 DD 00289 PUSHL R : ;] 
21 DD 00288 PUSHL #33 ; : 1 
6A DD 0028D PUSHL CHANNEL ; : 1 
1A DD 002BF PUSHL #26 F : 1 
68 ¢ FB 002C1 CALLS #12, COMMON_IO : :] 
4 DO 002C4 MOVL RO TUS : : 1 
06 4 : 02¢7 BLBC STATUS, 27$ ; : 1 
54 66 C OO2CA MOVZWL 10 STATUS, STATUS : : 1 
OF 4 £8 002cD BLBS STATUS, 29 : ; 1 
00000838 &F 54 (U1 9 00 27$:  CMPL TATUS, #2104 ; : 1 
06 13 0020 BEQL 9$ ; : 1 
50 01p¢ F 3 00¢09 288: MOVZWL #476, RO : :] 
O20 RET : : 1 
25 52 £9 OOCDF 29$: BLBC  VMS_TAPE, 30$ ; : 1 
324C4F56 SF AG AG D Ee cHPL ANST_LABEL, #843861846 : : ' 
AG =6A6 OOF ~OOZEC PUSHAB ANSI_LABEL ; : 1 
10 Aé pp EF PUSHL PROCESS _UIC ; : 1 
038 C6 OF Fe PUSHAB VOLUME_PROT ; : 1 
022¢ (6 OF F PUSHAB VOLUME vICc : : 1 
00006 CF 04 F FA CALLS # PROCESS _VOL2_LABEL : : 1 
04 A Ag E f BLBS ACCESS, 30$ ; 31 
0228 ¢é OD CLRL VOLUME PROT : : 1 
31524448 8F Aé AS b} t 308: cHPL ANSI_LABEL., #827475016 : : 
5 1 ag 3 £6 1 BBS is. MOUNT_OPTIONS+1, 31$ : 3 
1 1 Ag 4 €£ 16 BBC #4. MOUNTOPTIONS+1, 34$ ; 2 
¢ 8B 5 £ 1B 31$ BBS #21, @PRIVILEGE MASK, 32S : > 
o22¢ ¢ 10 ag ? CAL p €eSS_UIC, VOCUME_UIC : .3 
0000v CF a0 re 8 32$: CALLS i { RESET_DENSITY : 3 | 
50 28 80 : 538: MOL 36, RO : : 
11 55 £8 34$:  BLBS  TAPE_OWNER_STS, 35$ : 7 


; Routine Size: 910 bytes, Routine Base: $CODE$ + 0000 
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-000 12-80-1382 pa DISKSVMSMASTER: CMOUNT. SRCJMOUTAP.B32: 
0c 07 A 04 € BBS MOUN PTIONS+7, 35$ 
08 AO A6 5 BL BC ie $59 
5 226C «BF O3C F MOVZWL -(SP) 
: a, 4 CALLS 2s) 
; 04 AC D 47 35$:  MOVL URE py Abel. R2 
. Ae ER i 
(eee 0 mtr 
0000" CF 20 i Be 2 2E ; 36$:  MOVTC iat a4(R 2), #32, TRANSLATION_TABLE, #6, 
0000" CF 20 4 AB 6 2€E MOVTC edits "132, TRANSLATION_TABLE, #6, - 
6E 08 AE 6 29 : cmpcs, UPCASE_INPUT, UPCASE_TAPE 
50 010c = so&F ¢ i MOV ZUL #268, RO 
50 01 DO 0037A 378 MOVL #1, RO 
04 0 7D RET 
0000 7E 38$: «WORD Save nothing 
7E D4 00 CLRL 40s = (SP) 
SE DD PUSHL SP 
7E 04 AC 7D ° MOVa. 4(AP), =(SP) 
0000v CF 03 FB 00388 CALLS #3, ERROR “HANDLER 
04 0038D RET 
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EsSeoctage Q4:28:07  yetcLUAgLt 
ROUTINE SET_CHARACTER : NOVALUE = 
++ 
FUNCTIONAL DESCRIPTION: 
This routine sets the tape drive characteristics. 


CALLING SEQUENCE: 
SET CHARACTER (); 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
DEVICE CHAR - The current device characteristics 
MOUNT OPTIONS = The mount opt on speg.itied by the user 
BLOCKSIZE - value of ''/BLOCKSIZE”’ | 
RECORDSIZE - vaiue of ‘'/RECORDSIZE 
CHANNEL = the 1/0 channel of the tape drive 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
10_STATUS = set to the return status of the Q10 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 
USER ERRORS: 
NONE 


BEGIN 
LITERAL 
ODD_PARITY = 0; 
LOCAL 
cenees TEREST ES : VECTOR C4,WORD], ! characteristics to set 
BIND 


! Set up offsets into the characteristics buffer 


FORMAT = CHARACTERISTIC(2) : BBLOCK, 
PARITY = CHARACTERISTICLO) : BBLOCK, 
BUFFER SIZE = CHARACTERISTICL1) : WORD 

DENSITY = CHARACTERISTICL2) : BBLOCK; 


' 
i Initialize characteristics 


-32 
ER: 


v4 
CMO 


-0-742 P 1 
UNT.SRCIMOUTAP.B32:1~ 3) 


$3 


at at 8) a ss i a te 


yO2~000 1$Se-1 9K 93:28:97 NS imGMASTERSCMOUNT-SRcIMOUTAP.B3201%° (35 vor 


5 f 3 1 ! 
3 4 1 
s 755 1 Hanae TeRd atte = .(DEVICE_CHAR + 4); 
3 f § 1285 CHARACTERISTIC = .(DEVICE CHAR + 6); 
3 1 CHARACTERISTIC = .(DEVICE_CHAR + 8) 
3 f 8 | CHARACTERISTI = .(DEVICECHAR + 105; 
; 760 § ! Now set density 
; 76 129 IF .MOUNT_OPTIONSCOPT_DENSITY] THEN 
; 76 129 BEGIN™ 
3: 7646 129 IF .MOUNT_OPTIONSCOPT_DENS 800) 
: £9? : Be My SF DERSITYCMTSV_DENSITY) = MTSK -NRZ1_800 
: 76 1 IF .MOUNT OPTIONSCOPT DENS. 1600] 
; 768 129 THEN DERSITYCMTS$V DENSITY) = MTSK_PE 1399 
: f i : 38 END ELSE DENSITYCMT$V— DENSITY] = MT$K_GCR_6250; 
3 or 90 ELSE 
: or? ; Oe !' use the default 1600 BPI 
3 Ah i 0% DENSITYCMTSV_DENSITY] = MTSK_PE_1600; 
: 130 
3 44 : 4 ! Parity set to odd, we only support 9-tracks and 9-tracks are always odd 
3 4 10 PARITY C MTSV_PARITY J = ODD_PARITY; 
3 A ; \¢ ! Reset Tape format to FILES-11 ( only supported format ) 
; 785 1314 @ FORMAT C MTSV_FORMAT } = RTSK_NORMAL11; 
: rey 131 
. sf 1 1 !' record and block sizes only for mount ( not init ) 
a eee Bh 
3 291 1 9 ! Determine block size to set 
: 79 1 § ( MOUNT tly OPT_FOREIGN] OR .MOUNT_OPTIONSCOPT_NOLABEL) » 
3 796 1 THEN BLOCKS2 = 512 ~ 
: 795 } : ELSE BLOCKSZ = 2048; 
3 799 ! $ ! Check that blocksize for mounted labeled tape is not less than 18 
; 38 1 3 IF .MOUNT_OPTIONSCOPT_BLOCKSIZE] THEN 
; 800 1 BEGIN 
3 1 1 IF NOT .MOUNT T-ber lonstoPt= FOREIGN 
; § 1331 a MOUNT SLOPT- NOLABEL 
s 1 § AND -BLOCKSIZE IL 
ls 1 THEN ERR_EXIT (NOUNS - ILLANSIBS); 
3 5 4 BLOCKSZ = <BLOCKSIZE; 
; ' 5 END; 
; BUFFER_SIZE = .BLOCKSZ; 


SF 


ieSeectags Q4:26:07  YMCLIABLISHEEE W407 omaurap.onzZ4@™ BF 
! Check legal record size 


IF .RECORDSZ GTRU .BLOCKSZ THEN ERR_EXIT (MOUNS_RECGTRBL); 
! write the characteristics to the tape drive 
STATUS = DO_IO (CHAN = .CHANNEL 

I10SB = 

= E 

P1 = CHAR 1); 
IF .STATUS THEN STATUS = USCO); 
IF (NOT .STATUS) AND (.DEVI Ex LS§ ~LABEL_COUNT) THEN ERR_EXIT (.STATUS); 
END; ! end of Routine SET_CHARACTER 
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001C 00000 SET_CHARACTER: 
«WORD Save R2,R3,R4 

LIB$STOP, al’ 

BLOCKS2Z 

MOUNT carta R2 

DEVICE CHARS HARACTERISTIC 

MOUNT OPTI 

a. nou LOT fons 

; #0, #5, beaestyst 


+ MOUNT _OPTIONS+5, 2$ 
a: #0, #5, DENSITY+1 


#4, #0, #5, DENSITY+1 
#8. PARIT 

#12, Poa "Ns 

#3, MOUNT_OPT THONS*T, 4$ 
#4. MOUNT EBT IONS +1, 5$ 
#3{2, BLOCKS 


pial ag 
UN AOUNT T_OPTIONS+1, 7$ 
MOUNT“OPTIONS+1, 7S 
ah, MOUNT a 
#750409 
4 LIBS$STOP 
BLécksize Bubb OCkS? 
orks. Bu Brock? ITE CORDS? 


504188 
4 LIBSsToP 
-(§p 


-(SP) 
CLRL =(SP) 
PUSHAB CHARACTERISTIC 
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7 ze C CLRQ = =(SP) ; 
0c AS OOF PUSHAB 19 STATUS : 
23 DD OOOA PUSHL #35 : 
00096 ci DD OO0A PUSHL CHANNEL F 
A DD 000A PUSHL He, : 
000000006 : Q FB A CALLS # uf N_10 : 
: B BLB STA + 1349 
0 oc A ¢ B MOVZWL 10 fuss STATUS : 
E 50 € B BLB STATUS, + 1350 
00006 CF 00006 CF Dt BA 10$ CMPL DEY ICE! INDEX, LABEL_COUNT : 
5 1 C BGEQ ~3=s-:«d11$ : 
0 oD 000¢ PUSHL STATUS : 
64 01 FB 000C CALLS #1, LIBSSTOP ; 
04 000C8 11$: RET + 1352 


; Routine Size: 201 bytes, Routine Base: S$CODE$ + 038E 
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ROUTINE RESET_DENSITY : NOVALUE = 
i? 
FUNCTIONAL DESCRIPTION: 


This routine resets the density of the tape drive. It is called 
f this a foreign mount. 


CALLING SEQUENCE: 
RESET_DENSITY (); 


INPUT PARAMETERS: 
NONE 


UEWN—OODONOw 


IMPLICIT INPUTS: 
CHANNEL = the 1/0 channel of the tape drive 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
I0_STATUS = set to the return status of the Q10 


ROUTINE VALUE: 
NONE 


WAI 


COCOONS 


SIDE EFFECTS: 
NONE 


IO Sua 
CIOS NOU RUIN Ooo en WR OOONAULW 


USER ERRORS: 
NONE 


RAMADAN E RE Be Bee Be oe CM CMCSA CERRORORORORD 
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BEGIN 

LOCAL 
we : VECTOR C4,WORD), ! characteristics to set 
STATUS; 

BIND 


! Set up offsets into the characteristics buffer 


BUFFER_SIZE = CHARACTERISTICEI} : WORD 
DENSITY = CHARACTERISTICL2) : BBLOCK; 
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1 ! must be at beginning of tape to set characteristics 
P : STATUS = DO_IO (CHAN = .CHANNEL 
P 1404 10SB = 10 STATUS 


UNC = 10$_REWIND); 

IF .STATUS THEN STATUS = 1O_STATUSCO}:; 
IF NOT .STATUS THEN ERR_EXIT™(.STATUS); 
] 


read the characteristics of the tape drive 
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yO4~000 Been Tks Pies he Nee dwRAAS fens chounT Secamoutap.e320%% «Zs 
1 
P 141 STATUS = DO_IO (CHAN = CHAO 
P 141 Tose = CHARACTERISTIC, 
5 1 FUNC = I10$_SENSEMODE);: 
1 IF .STATUS THEN STATUS = .CHARACTERISTICLOD; 
: IF NOT .STATUS THEN ERR_EXIT (.STATUS); 
1 ! Set up the buffer to note the new characteristics. Get the device 
1 ! independent stuff from the 2nd long word of IO_STATUS, use the default 
1 ! bpuffersize and zero the notused field 


d 
{ 

anacTensstic C0j]= 

ER = bocksz: 


AR 
FF 
Now reset density to what the user specified. 
F cHOUNT OPTIONS C OPT_DENSITY J 
oeGin 
IF .MOUNT_OPTIONSCOPT DENS_800) 
THEN DENSTTYCMTSV_DENSITYJ~= MTSK_NRZ1_800 
err iowstort DENS_ 1600] 


IF_ MOUNT 
THEN DENSTTYCMTSV DENSITY i = MTSK_PE_1600 
ELSE DENSITY MTSV-DENSITY] = MT$K-GCR_6250; 
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4 
oup : i ! write the characteristics to the tape drive 
911 P 1439 2 STATUS = DO_IO (CHAN = .CHANNEL 
gig P 1440 SB = 10 STATUS 
91 P 1441 C = 10S _SETMODE 
914 ate Pi = CHARACTERISTIC) 
915 44 IF LSTATUS THEN STATUS = .10_STATUSCO}; 
918 44d IF NOT .STATUS THEN ERR_EXIT~(.STATUS); 
918 446 1 END; ! end of routine RESET_DENSITY 


007C 00000 RESET_DENSITY: 


WORD Save R2,R3,R4,R5,R6 : 1353 
56 CF 9E 3 VAB CHANNEL. R6 ; 
' CF 9€ MOVAB 10 status, RS : 
4 9000 6 E ¢ MOVAB LIBSSTOP : 
3 6 : V COMMON_10, R3 : 
E g 1A SUBL a eP ; 
— 7C 0001D CLRO. 0 = ( §P) > 1405 
7E 7C OOO1F CLRQ = = (SP) ; 
7E 7 CLRO ($8) F 
43 7¢ CLRQ 2s = (5P) ; 
DD PUSHL R ; 
4 0D PUSHL #36 : 
6 DD SHL CHANNEL ; 
A DD a PUSHL #26 : 
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Sole QUOT YMCLUL S32 YS 057E2 nour. ose 


ale.. str se 10 
5 Pe 


CHARACTERISTIC 
CHANNEL 


» COMMON_I0 
RO pad S 


$ 
SHARACTERISTIC, STATUS 
S, 4$ 


a3: ae 


i, age OPTIONS+5S, 6$ 
, #5, DENSITY+1 


ty #0, #5, DENSITY+1 
-(§P) 
-(SP) 


CHARACTERISTIC 


TUS 
0 statu STATUS 
Tat U3 


STATUS’ 
#1, LIBSSTOP 


! end of routine TAPE_OWN_PRO 
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MACRO INITIALIZE_MOUNT_TAPE = 

had 

FUNCTIONAL DESCRIPTION: 

i This MACRO is the code that is done ist thru the routine MOUNT_TAPE. 
It initialize the propenyecs for the MVL, RVT and VCB. The code also 
does some one time only checks. 


' 
' 
' 
' 
| CALLING. SEQUENCE: 

INI TIALIZE_MOUNT_TAPE 
,] 

' 


i PARAMETERS: 
: ALL of MOUNT_TAPE's parameters 


: get a handle on the UCB List contained in the RVT 
UCBLIST = PROTO_RVTCRVTSL_UCBLST); 

: Now fill in VCB prototype 

PROTO_VCB[VCB$W_ TRANS] 1; 
PROTO_VCBLVCBSW_MCOUNT] 1; 
PROTO-VCBLVCB$W_RECORDSZ) = .RECORDSZ; 


: art sheers use label in VOL1 else use user's Label as the volume name in the 


if .MOUNT_OPTIONSCOPT_IS_F1LES11) 

THEN CHSCOPY ( VLI$S_VOLCBL, VOLICVL1$T VOLL8L], ‘ ', 
VCBSS~VOLNAME, PROTO_VCBLUCBST_VOLNAME)) 

ELSE CHSCOPY ( .LABEC_STRINGCO,LEN]. .LABEL STRINGLO,ADDRI, ° °, 
VCB$S_VOLNAME , PROTO_VCBLVCBST_VOLNAMEJ); 

; If Files-11 mount, fill in MVL + VCB 

if NOT ( .MOUNT_OPTIONSCOPT_FOREIGN] OR .MOUNT_OPTIONSCOPT_NOLABEL) ) 

BEGIN 

: stuff away the number of labels we have 


iF .LABEL_COUNT EQL 0 THEN LABEL_COUNT = 1; 
PROTO_MVLEMVLSB_NVOLS) = .LABEL_COUNT; 


: copy the FILE SET ID to the MVL ( checked on tape reel switch by MTAACP ) 


CHSCOPY ( HDISS_FILESETID, ANSI _LABEL C HDIST_FILESETID J, ' *, 
MVLSS"SET_ID, ° PROTO_MVL C MVLST_SET_ID J ); 


! copy VOL1 Accessibility Charater to MVL for default writing during 
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14 ats 7 HH DISKSVMSMASTER: MOUNT. SRCIJMOUTAP.B32;1> 5 


————————————— 


: gf p } 5 ! MTAACP next volume writes 
: 980 m1 § 1 CHSMOVE (MVL$S_VOLOWNER voLicvi ast VOLOWNER) PROTO_AVLCMVLST_VOLOWNERI) ; 
; 381 " 08 PROTO_MVLCMVL$6_VOL_ACC) = .VOLILVLTSB_VOLACCESS | 
; 983 " 10 ! get a handle on the label List inside the MVL | 
: 989 miD1g | MVL_ENTRY = PROTO_MVL*MVLSK_FIXLEN; | 
; 987 R 151s 1 ! FALL in the known constant for the prototype VCB | 
: 989 m1 16 1 PROTO. VCBEVCBSV_OVRACC] = .MOLINT_OPTIONSCOPT_OVR_ACC); 
: 990 M1517 1 PROTO-VCBLVCBSV— =OVREXP = {MOUNT-OPTIONSLOPT-OVR-EXPJ; 
: 991 m1 18 1 PROTO-VCBLVCB$V-OVRLBL] _ = .MOUNT-OPTIONSLOPT-OVR-1DJ; | 
; 99 M1519 1 PROTO-VCBLVCBSV— ~OVRSETIDJ = .MOUNT-OPTIONSLOPT-OVR-SETIDI; 
: 99 m 1520 1 PROTO-VCBLVCB$V-NOHDR3) = .MOUNT-OPTIONSLOPT— HOR 345 
: 994 M1521 1 PROTO-VCBLVCB$V-OVRVOLO] = .MOUNT-OPTIONSLOPT—OVR 63; 
995 M15 ‘ 1 PROTO-VCBLVCBSV— = {MOUNT-OPTIONSLOPT— “INIT ALL OR .MOUNT_OPTIONSLOPT_INIT_CONT); 

9% M1523 1 PROTO-VCBLVCBS$V-NOAUTO] = .MOUNT-OPTIONSLOPT—N 
: 997 M1524 1 PROTO-VCB veBsv~ INTCHG)] = .MOUNT“OPTIONSLOPT— mr 
. ts | 
: 1000 M1527 1 PROTO_MVLEMVL$V_OPER] = .PRIVILEGE_MASKCPRVSV_OPER]; | 
> 1001 M1528 1 PROTO-MVLEMVLS$V-VOLPRO] = .PRIVILEGE-MASKLPRVS$V_VOLPRO); 
: 1008 M1529 1 PROTO-MVLEMVL$VOVRPRO] = .PRIVILEGE-MASKCPRVSV-VOLPRO] OR | 
: 100 m 1530 1 -PRIVILEGE MASKCPRVSV-BYPASS) OR 
: 1004 M1531 1 ; PRIVILEGE -MASKCPRVSV_OPE | 
: 1005 m 15 : 1 - PRIVILEGE -MASKLPRVSV_SYSPRV); 
> 1006 M1533 1 PROTO_MVLCMVL$B_STDVER] = .LABEL_VER; 
: 1007 M1534 1 
Si ee ng 
: 1010 a" 3 i 1 ! must have operator privilege to monkey with the ACP 
; 1012 M1539 1 IF (.MOUNT_OPTIONSCOPT_UNIQUEACP] OR 
> 101 M1540 1 “MOUNT-OPTIONSLOPT-SAMEACP] OR 
+ 1014 M1541 1 -MOUNT~OPTIONSCOPT~F ILEACP)) 
> 1015 4 1348 1 AND (NOT .PRIVILEGE BRASKLPRVSV _OPER) 
: 1016 Xs 13a¢ THEN ERR_EXIT (ss$ _NOPRIV) 
: 1018 M1545 1 ! If not Files-11 mount or mount foreign or mount no Labels then 
3; 1019 fal 1386 1 ! only one unit can be involved. If Files-11 allocate 
‘ } z 13 : ; secondary units checking that the maximum number of devices is not exceeded. 
: i é 4 1368 1 iF ¢. DEVICE _COUNT EQL 0) | 
: 10 i 1350 1 OR ¢ -MOUNT_OPTIONSCOPT_IS_FILES11] 
> 1024 m 1551 1 "ROUNT “OPTIONS OPT" FOREIGN 
> 1025 m1 2 1 OR :MOUNT~OPTIONSLOPT NOLABEL J) 
: 1 6 a1 1 (. DEVICE COUNT NEQ T)) 
: 10¢ " 4 THEN ERR_ bith (MOONS_DEVICES); 
; 19 3 : } 36 i remember the first volume's UIC and Protection ( used in the UCB ) 
; 18 m1 38 1 FIR RST_V_ UIC = .VOLUME_UIC; 
: 10 : fs 39 FIRST. VPROT = .VOLUME~PROT; 
: 1034 1561 1 ‘ : ! end of Macro INITIALIZE_MOUNT_TAPE 
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MACRO DONE_MOUNT_TAPE = 


14 
' 


FUNCTIONAL DESCRIPTION: 


This MACRO is the code that is done the Last time thru the routine 
MOUNT_TAPE. It fills the MVL with the extra labels. The real MVL 
RVT and VCB get put into system space. The user is notified of which 
reels are mounted where. 


i 

i 

i 

: 

' CALLING SEQUENCE: 
DONE __MOUNT_TAPE 
i PARAMETERS: 

: ALL of MOUNT_TAPE's parameters 
te 


BEGIN 


! If Files-11 mount, fill in MVL with the extra Labels ( if more labels then 
devices are specified ) 


if NOT (.MOUNT_OPTIONSCOPT_FOREIGN] OR .MOUNT_OPTIONSCOPT_NOLABEL) 
INCR I FROM (.DEVICE_INDEX + 1) TO .LABEL_COUNT = 1 DO 
IF .LABEL_STRING C.1, LEN] GTRU VL1$S_VOLLBL 
THEN ERR EXIT (SS$ MTLBLLONG); 
CHSTRANSLATE ( TRANSCATION TABLE, 
-LABEL_STRINGC.1,CENJ, .LABEL_STRINGC.I,ADDRI, ' 


e 
AVLSS VoLLBL MVL_ENTRYL.1,MVL$T_VOLLBL): 
VL ENTRYL.I, AVL$8_Sfatus] = 0; 


: update the number of units available to volume set 
PROTO_RVTCRVTSB_NVOLS)] = .DEVICE_INDEX + 1; 
: make the mount a real thing 


STATUS = KERNEL_CALL (MAKE_TAPE_MOUNT); 
IF NOT .STATUS THEN ERR_EXTT (. STATUS); 


' Let the user know if the volume has been changed to write lock 
! (ie He said the write ring was there but it wasn't ) 


i] 
i 
IF WRITE RING C 0 J NEQ .MOUNT OPTIONS C OPT_WRITE J 
THEN ERR_MESSAGE ( MOUNS_WRITELOCK ); 


i 
: Print information message stating which volumes are mounted on which units 


< 
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VFN —"OOONOULS WOO 
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ONAOULSWN "OV ONOULS WOOO 


VAK=11 BLiss-32_v4.0- 
sf T eRcamoutar.e3204>" ( 


ieodeon19Bs 01:24:05 


ney REF VECTORC,BYTE), 
ROTO av ory Oe F XLEN; 


=p 
0 TO -PHY mn pe 
oy 0 TO ,PROTO VL the NVOLS] - 


PutRve J,MVCSB_RVN 


oJ ,MVLST i 
VOLLBL TO 0 DO 


=_K; 
SIZE NEQ 0 


DISKSVMSMASTER: CMOUNT 
«MOUNT _OPTIONSCOPT_ FOREIGN] OR .MOUNT_OPTIONSCOPT_NOLABEL] ) 


ee | 


EG .1 AND VL, ENTRYC.J,MVLS$V_MOUNTED] 


IF .LADDRC.SIZE-1] NEQ ' * THEN EXITLOOP; 


ERR_MESSAGE — MOUNTED, 47” Tamla spablide ciate 


S_RAMEC.1 
END: 

END 
BEGIN 
LOCAL LADDR : REF VECTORC,BYTE), 
LADDR = PROTO_VCBLVCBST VOLNAME 
DECR I FROM VCBS$S_VOLNAME TO 0 DO 

BEGIN 

SIZE = .1; 

IF <sizé NEQ 0 

IF .LADDRC.SIZE-1)] NEQ ' * THEN EXITLOOP; 


END; 
ERR MESSAGE = SAAMLLOCL aa -SIZE,PROTO_VCBCVCBST_VOLNAME], 


0.LE 


! end of Macro DONE_MOUNT_TAPE 
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se 
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GLOBAL ROUTINE MOUNT_TAPE : NOVALUE = 


VI 


1o4 


i 
FUNCTIONAL DESCRIPTION: 


PAO 
uw 
WOO 


3 7 1 1 

311 1 1 

3 13 1 1 

311 1 1 

St ae 

; 1140 1665 1! This routine performs the poe te 5 of mount se magnetic tape 

; 114) : } given as input the parsed and parti ally validated command Line. 
; 1148 1668 1 | CALLING SEQUENCE: 

: yee 19 9 ! MOUNT TAPES () 

; 1146 187) 1 i INPUT PARAMETERS: 

3 114 1of¢ 1/ NONE 

3; 1148 16738 1: 

3: 1149 1674 1 | IMPLICIT INPUTS: 

; 11289 1675 1 mount parser data base 

3: 1151 1978 1/ CHANNEL channel number for 1/0 

; 1128 167 } VOL1 ANSI VOL1 Label if Files_11 

3: 1154 1879 1 | OUTPUT PARAMETERS: 

3; 1155 1939 ii NONE 

; 1156 1681 1: 

: 1157 1o8¢ 1 | IMPLICIT OUTPUTS: 

: 1158 16 13 NONE 

3; 1159 1O88 1/ 

; 1160 1685 1 ' ROUTINE VALUE: 

3 1161 16 1/ NONE 

: 1108 16 1/ 

3; 116 16 1 | SIDE EFFECTS: 

3 1164 1689 1! VCB,RVT,MVL created 

3; 1165 1690 1! 

: 1198 1691 1 ! USER ERRORS: 

3: 116 1696 1/ NONE 

3: 1168 16 1/ 

3; 1169 1694 1 i- 

: 1170 1695 1 

3 1171 1998 BEGIN 

; 1176 169 

; BY 6 1o08 : Define descriptor vector displacements 

3 1175 9 MACRO LEN = 9.0.18. 08: 

: 1176 1701 MACRO ADDR 0,3 : 

3 1177 17 ; 

: 1178 17 EXTERNAL 

311 1704 DEVICE_COUNT ! # of devices specified 
3 1180 1? 5 DEVICETSTRING : BBLOCKVECTORCOEVMAX,82, yt RR, devices string 
3 escr 

3 i § \y LABEL_STRING : BBLOCKVECTORCLABMAX,8), vector Of La Label string 
311 17 } PHYS_COUNT, i number of phy sical 
3 1185 1710 ! = devices os ocated 
311 1711 PHYS_NAME : BBLOCKVECTORCDEVMAX,8); ! vector of ph ys sical 
311 rig ! devices allocated 
3 ¥3 171 

3 (11 1714 LOCAL 

3 19 1715 STATUS, 


SN EEE eee ee 


F 16 


TAP 16-Sep-1984 VAX-11 Bliss-32 V4.0-742 3 
v04-000 2 ~Sep- 1982 9): £3: 83 DISKSVMSMASTER: CHOUNT. SRCIJMOUTAP. a32:1 °F 
1 ! UCB; 
1 OWN 
1 MVL_ENTRY : BOL OCKVECTORELABAAK .AV, SK. LENGTH], 
ucBCiST REF VECTOR; ! véctor of UCB in RVT 


! Enable handler to clear valid on all but current device 

ENABLE ERROR_HANDLER; 

! initialize things and do some 1 time checks if first time thru 
IF .DEVICE_INDEX EQL 0 THEN INITIALIZE_MOUNT_TAPE; 

! Position tape to beginning again 


STATUS = DO_10 aoe. Pee 
FUN REWIND, 


3 ! 1 1 

3 a: 

113 1) 

Ne 86 if 

:1 38 17 

: 1290 17 

3; 1201 17 

33 § 17 

2 5 

wy 

‘we ett 

> 1209 17 1088 = 10 0_ST TATUS); 

3 1210 17 IF .STATUS THEN STATUS = -10 STATUSCO) 

3 1 i} Vf IF (NOT .STATUS) AND ( (.DEVICE_ INDEX Lsé -LABEL_COUNT) THEN ERR_EXIT (.STATUS); 
:1 ig 1738 ! If the i. routine allows us to check the VMS protection then 
> 1214 1739 i check privileges 

3: 1215 1740 i First check rs see if users has read/write access to the volume. If the 
3; 1 18 1741 i user does not have access to the volume then check to see if the user 

: ; \ 17t6 i has priv’s to override the access or if the user is the owner of the volume. 
5 1219 1744 2 IF .ACCESS 

: 1220 1745 THEN 

3 1221 1re8 BEGIN 

3 ¢ é P 174 IF NOT KERNEL_CALL (CHECK_PROT, VOLUME PROT, VOLUME_UIC, .PROCESS_UIC, 
31 1748 4 WRITE_RINGCOJ) 

3; 1224 1749 3 THEN 

3; 1225 1750 4 BEGIN 

3 7 § 1751 H IF (. Fe gi OPTIONSCOPT_O Ay 

3 3 1036 ( NOT (. ORiVILece. AKSK PRVSV YOLPRCY 

3 1 : 12 5 vot’ R (. VOLUME VIC E of "ete OIC) ) 

3 1 1754 4 THEN ERR_EXIT (ss$ UNOPRIV 

3 1 123? 3 

3 1231 1? $ END; 

: 1538 172 

; \ ¢ 1786 ! get the UCB of the currect channel and stuff it away in the RVT 

:1 1761 

3 \ 1269 UCB = KERNEL_CALL (GET_CHANNELUCB, .CHANNEL); 

: } z ree ! Check that duplicate device has not been specified 

: 126 1766 INCR J FROM 0 T jBEWACE. INDEX = 1D 

3 } ; 120 iF -UCBLISTC.JJ EQL [UCB THEN ERR EXIT (MOUNS_DUPDEVSPC); 

: 1 re 1788 a Eg a? = .UCB; 

: 1¢4 44 ! If Files-11 mount, stuff the Label in che MVL and mark it mounted 


TAP 18-50 Sep-1984 VAX=11 Bliss-32 V4.0-742 
-000 Been Fhe Ph:ee GF NN eA St eae bode SecamourTar.e3203%" (FS 

; ' 48 IF NOT ( .MOUNT_OPTIONSCOPT_FOREIGN] OR .MOUNT_OPTIONSCOPT_NOLABEL) ) 

: 1250 1 BEGIN 

+ 1251 1 : CHSTRANSLATE ( TRANSLATION. yA LE 

31 ; 7 VL1$S_VOLLBL, VL{IST_VOLLBLI, ' 

: 1 1 £8 nVL SS VOLLBL, ro gNT Y E-DEVICE { 

: 1254 177 MVL_ENTRYL .DEVICE_INDEX, MVCSB_STATUS) = 9; 

3 1255 1780 MVL~EN NTRY -DEVICE-INDEX. MVLSV"MOUNTED) = 

: 1 5 17 aes “ENTRYL.DEVICE-INDEX, MVLSB-RVNI = .OEVICE_INDEX; 

:4 17 

: ' 53 Vv : ! do some Last time only stuff 

: 1261 17 6 IF .DEVICE_INDEX EQL (.DEVICE_COUNT = 1) 

; ' 6¢ V7 f THEN DONE_MOUNT_TAPE; 

: 1264 1789 1 END; ! end of routine MOUNT_TAPE 


~PSECT SOWNS,NOEXE ,2 


00291 -BLKB 3 
00294 MVL_ENTRY: 
BLKB 4 


00298 UCBLIST:.BLKB 4 


-EXTRN tthe COUNT, DEVICE STRING 


| 
NDEX MVLST_VOLLBL)); 
“EXTRN LABEL. STRING. PHYS_COUNT | 
EXT PHYS NAME 


RN 
.PSECT $CODES,NOWRT,2 
OFFC 00000 -ENTRY no NT {Are Save R2,R3,R4,R5,R6,R7,RB,RI,- ; 1659 
00006 CF 9E 0000 MOVAB MOUNT_OPTIONS, R11 : 
3A $389 cr 9E 9007 ROVAB PROTO? VCB+44, R10 ¥ 
0006 £ oS bot STL. Dd vice. INDEX : 1938 
; 0013 BEQL Ss F 
01 31 1 BRW 13$ : 
"g cA 0104 i 3 A 1$: ROVAB ri ee at0' Veh. gelsntst 
AA 1 8B MOV * PROT : 
4 AA 00006 i 8 ? nov Re ConDsz PROTO vCB+89 : 
oc 28 © obec CF . 5c MOVCS #6, wou OPP. aid, “PRoTO_vcB+20 = | 
0B 1 BRB 34 : 
0c 20 00006 oF 00096 cf C f 23: MOVCS bot STRING, @LABEL_STRING+4, #32, #12, - | | 
03 01 AB 03 5 A 38: BBC OTROUNT _OPTIONS+1, 5$ ; 
O0FA 1 F 4S: BRW ; 
F8 01 AB 4 € : 5$: BS #4, MOUNT OPTIONS+1, 4$ ; 
00006 if p : tsi ABEL _COURT 2 | 
00006 CF 1D D AOL Oat LABEL _COUNT : | 
| 


H 16 
16-Sep-1984 VAX-11 BL Lis $-32 V4.0-762 
oreo eee eet Me mthas tens cuougr. SRCIROUTAP.B32; Paoe 33 | 
CA 00006 CF 6$: OVB_ LABEL COUNT, PROTO_MVL+11 ; 
CA Og § MOVC ig ARS I a EL eo] “PROTO_MVL+12 : 
CF E moves) #14 VOLTS +3 +rnatcny L+20 ; 
CA 90096 CF MOVE. VOL1+10, proton : 
A 16 A 9E BOvAR PROTO AVL 5 AYLEN ; 
50 04 AB 1 6 EF EXTZV Hg, aT P reuay RO ; | 
A 01 1 FO INSV RO, #1, #1, fort VCB+44 : | 
0 02 AB 1 4 EF EXTZV #4. #1, T OPTTONS+2 RO : 
A 01 0 0 FO 0009 INSV RO, 40, #1, PROTO vcB+4é ; 
0 02 AB 1 EF EXTZV #6. #1, T OPTTONS+2 ; 
A 01 FO OOOA INSV RO. #2. #1, PROTO vCB+44 ; 
0 02 AB EF EXTZV #5. #1, MOUNT OPTTONS+2 RO : 
6A 0 FO OOOA INSV RO, #3, #1, PROTO vCB+44 : 
50 05 AB 1 4 EF 3 EXTZV #6, #1, T_OPTIONS+5 : 
A 01 7 0 FO 0008 INSV RO, #7, #1, PROTO vCB+4é ; 
0 07 AB 01 4 EF OOOBE EXTZV #4. #1, T_OPTIONS+7, RO : 
01 AA 01 05 FO 0004 INSV RO, #5, #1, PROTO vCB+45 : 
50 07 AB 01 EF OOOCA EXTZV #2, #1, MOUNT_OPTIONS+7, RO ; 
51 07 «AB oi FE 00 EXTZY #3, i, MOUNT-OPTIONS*7, R1 ; 
01 AA 01 03 50 £8 0008 INSV. RO, a "1, PROTO VCB+45 ; 
50 07 «(AB 01 or EF OOODF EXTZV #1. #1, OPTIONS+7, RO ; 
01 AA 01 04 0 FO O00ES INSV RO. #4, #1, PROTO vCB+45 : 
50 07 AB 01 93 EF OOOEB EXTZV #5. #1, T OPTIONS+7, RO : 
6A 01 04 0 FO O00F1 INSV RO. #4 PROTO vcB+44 ; 
0 CC «AA. «DO 000F6 MOVL PR vILECE fas + RO : | 
51 60 01 12 EF OOOFA EXTZ2V #18, #1, TRO : 
0157. CA 01 02 51 FO OOOFF INSV R1, #2, #1 Oem _MVL +19 : 
51 60 01 15 EF 001 EXTZV Wal, a, #lROD ; 
0157 CA 01 00 51 FO 001 INSV R1, #0, #1 PROTO _MVL+19 ; 
51 60 1 15 EF 0011 Extzv #21, af, (RO) ; 
52 60 1 1D EF 0011 EXTZY #29. #1. {ROo? ; 
1 52 ¢8 OOTIC BISL *R1 : 
53 60 01 12 EF OO11F EXTZY #18, #1, (RO), R3 : 
51 53 €B 00124 BISL R 1 ; 
52 60 o1 iC cr 127 EXTZY Fi é, "i, R2 : 
2 2] 12¢ B1SB. 1. Re ; 
0157 CA 01 01 2 FO OOl0F INSV , #1, PROTO mVL +19 ; 
0166 CA C8 AA 90 001 MOVB eget L_VE eR oproro AVL : 
03 «AB : EO 0013C¢ 7$ BBS ae. MOUNT ONS+3, ; 
05 0 AB EO 00141 5 MOUNT~ -b TONS: ; F 
OE AB 4 £1 00146 BBC #4. MOUNT“OPTIONS+3, 9$ ; 
9 CC BA 12 EO 00148 8$ § € MOPRIVILEGE MASK, 9 ; 
; DD 001 PUSHL ‘ : 
000000006 90 1 FB 001 CALLS , LIBSSTOP : 
00006 CF p 159 9$: VL Dey VICE_COUNT, RO ; 
14 1 BEQL $ ; 
OA 6 AB 1 €1 001 C #1, MOUNT_OPTIONS+4, 10$ : 
05 1 AB 3 £0 001 BBS #3, MOUNT“OPTIONS+1. 10$ : 
12 1 AB 4 E1 OO16A BBC i TTOPTIONS+1. 12$ : 
01 0 D4 16F 108: : 
D 1 : BEQL Ss f ; 
00728174 8F DD 7 11$: PUSHL #7504244 ; 
000000096 00 1 FB OOI7A CALLS #1, LIBSSTOP ; 
B8 AA grec CA DO 001 J 12$:  MOVL | VOLUME_UIC. FIRST_V_UIC : 
AA 1E cA p 1 MOVL § VOLUME“PROI, FIRST_V_PROT F 
—E 7C 0018D 13$:  CLRQ (SP) > 1734 
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— 7¢ F CLRQ = =( SP) ; 
— 7¢ CLRQ ss = (SP) : 
—E 7C LRQ -(SP : 
CO AA OF PUSHAB 19 STATUS ; 
24 DD PUSHL #36 : 
00006 rf DD A PUSHL CHANNEL : 
A 0D 0019 PUSHL 426 ; 
000000006 : FB OO1A CALLS #12, COMMON_10 : 
DO OO1A MOVL RO, STATUS : 
7 E 01 AA BLBC STATUS, 14$ + 1735 
3 CO AA 001 AD MOVZWL 10 STATUS, STATUS : 
1 59 E68 90181 BLBS STATUS, 15$ + 1736 
00006 CF 00006 CF 01 001B4 148:  CMPL DEVICEINDEX, LABEL_COUNT : 
9 18 0018B BGEG }43=s«15$ : 
9 DD 001B8D PUSHL STATUS ; 
000000006 90 1 FB 001BF CALLS #1, LIBSSTOP ; 
B FF60 CA f 001C6 15$:  BLBC ACCESS, 16$ : 1744 
O1FO }«=60—CCA.—sOSF:«O001CB PUSHAB WRITE_RING : 1748 
DO. OA pp DO1CE PUSHL PROCESS. UIC : 
O1EC CA 9F 00102 PUSHAB VOLUME _OIC F 
O1E8 CA 9F 00106 PUSHAB VOLUME-PROT : 
4 DD OO1DA PUSHL : 
E DD 001DC PUSHL SP ; 
00006 CF 9F 0010 PUSHAB CHECK_PROT : 
000000006 9F 9 F E CALLS #7, @ASYSSCMKRNL : 
1A 0 € E BLBS RO. 16 : 
16 04 AB E EC BLBC MOUNT OPTIONS+4, 16$ : 1751 
11 cc «BA 15 EO OO1F BBS #21, GPRIVILEGE MASK, 16$ ; 1738 
DO «OAA O1EC CA D1 0015 CMPL VOLUME UIC, PROCESS_UIC > 175 
9 13 001FB BEQL Ss ; 
4 DD OO1FD PUSHL #36 + 1754 
000000006 00 1 FB OO1FF CALLS #1, LIBSSTOP F 
00006 CF DD 00206 16$: | PUSHL CHANNEL + 1762 
1 OD A PUSHL #1 : 
E 0D C PUSHL SP : 
00006 CF 9F PUSHAB GET_CHANNELUCB : 
000000006 iy 04 i CALLS a4, aysys CMKRNL 3 
3 00006 CF D ¢ MOVL  DEVICE_INDEX, R3 : 766 
2 1 cE 1 MNEGL #1, J : 176 
13 4 BRB 18 ; 
54 01F8 DAs2 Dt 6 17$: cMPL CBLISTCJJ, UCB : 
00728004 8F DD PUSHL #7504084 ; 
000000006 | F CALLS #1, LIBS$STOP : 
7 ¢ 18$:  AOBLSS R3, J, 1 : 
00006 CF »D F MOVL DEVICE_INDEX RO : 1769 
O1F8 DAG 4 D 44 MOVL UCB, a0CBLISTCRO : 
57 01 1 3 EF OO24A EXTZ2V #3, #1, MOUNT_OPTIONS+1, R7 : 1773 
50 01 «AB 1 4 EF 0 EXTZV  #a, a, MOUNT"OPTIONS+1, RO ; 
7 g ¢ $ BISL2 RO. R : 
D E BLBS «aR? ; 
; 174) «OCA CO ‘ MOVL MVL_ENTRY, R6 : 1778 
006 ¢F p MOVL DEVICE NOEX, RO ; 
6640 7F PUSHAQ (R6)CRO : 
0000" CF 20 00006 ce 06 2E #6, VOL1+4, #32, TRANSLATION_TABLE, #6, - ; 
E 2 a($p)+ ; 


— te 


7 
-742 Page 3 
16 : VAX-11 Bliss-32 V4.0 RCIMOUTAP.B32: ( 
- = 4 : . TER: CMOUNT.S 
IE RepcH0Ne (12:09 el Pin 
v04-000 50 00006 ¢F 0 274 PUSHAQ PenesEROS ‘1780 
Moe $6 00876 ct EVICE- INDEX, RO ; 
F DO F 1 PERO nO) * 1781 
50 00006 f ' PUSHA aSP)+ 3 178 
aany Baie DEVICE INDEX, RO : 
oF BD PUSHAG BIRESERON ; 
BG cr 9 CUBES AI, DEVICE COUNT RO 
ET gl TS $3 ese oy EVICE_INDEX, RO ; 
N R7, 24$ : 
208: 8LBS NT, R8 ; 
$8 00006 60 hh ROVE pevice“ INDEX, ; 
= we SF oe BUHAQ LABEL. STRINGCI : 
ooooscr’e 7 BBS CMBU BCSPDSS ae ; 
9€ BI BLEQU 228 - 
06 C 18 00 cb MOVZWL #772, -(SP) : 
TOP ; 
re (0506 er 6 O05¢ Strand eae Ona ; 
0000006 00 7F OOZCC 22$: — PUSHA a(SP)E, RO : 
00 coooscr ss 01 MOVL aCsP edrave1) R7 : 
$7 ure pade TE 00004 PUSHAG LABEL. STRING tse TRANSLATION_TABLE, #6, - 
, OOO0GCFSE 7F OOEDA VIC aC SP)F, (RO), #32, : 
6 0g 2E 40 ts re yer?) ; 
. 20 CL : 
sce ‘ °” OB FS Goss gi8; —AbbBS” I, DEVICE INDEX, PROTO_AVT#11 3 
36 1 OOZEF 24$ ~(éP) * 3 
C7 CF gl 8 O2F7 CLRL : 
0ocB. «CA = (00006 E D4 PUSHL_ SP ane : 
oooov tf SF o 8 0%, a3. BEST SSCRKANL 
000000006 9F i 00 O 308 BLBS «STATUS. 385 ; 
PUSHL : 
ne $9 PB O30E oe Be Hi ROUNT OPTIONS+1, RO 
000000006 89 1 EF 25$ Os 40; #1, WRITE-RING, ; 
5 Cotta 01 > §8 PUSHL $8, sce ; 
‘i 0072A013 F oe CALLS Ag ROUNT OPT TONse1 re} 
eit: AB eb — BBS PROTOCMVLESG AVE ENTRY ' 
63 1 & 1 cA 5 MOVL PHYS COUNT, 7 : 
Oe GF hbb06 cr WNEGL #1, T 
2 4D § A 278: RAY ZBL PROTO_MVL+11, R6 ; 
5¢O14F if et REG Id Si 
5 O1F4 DAS i 28s: ye ‘ mae a tROD: | 
06 AO 0 i Bae | PtRO), 328 
32 2D 07 AO €E 
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4 0 D MOVL RO. L LADDR : 
} D B Vv : 
29$ ROVL *slze : 
20 FF “i CMPB es #32 : 
A 30$ SOBGEQ Kk, 29S F 
o000Gccr4 fF 35 PUSHAQ PHY YS_NAMECIJ : 
DD USHL : 
DD PUSHL : 
DD PUSHL : 
0072A003  8F OD PUSHL ; 
000000006 5 F CALLS is, tibg JGNAL : 
D $ F 3e8: AOBLSS ; 
5 E8 AA g SE 34$: MOVAB ron VCB+20, LADDR : 
3 D A MOVL : 
D AS 35$:  —- MOVL gle : 
1 BEQL $ : 
20 FF A140 91 OO3AA CMPB 0s «= 1 (SIZE) CLADDRI, #32 : 
Q 13 AF BNEQ 37$ : 
F B1 368: SOBGEQ I, 35 : 
00096 CF 9F 00384 37$: | PUSHAB PHYS_NAME ; 
E8 AA 9F 00388 US PROTO_VCB+20 : 
51 OD 9 BB PUSHL SIZE : 
3 DD 00380 PUSHL : 
0072A003 BF ODD 9 BF PUSHL #7512067 : 
000000006 00 5 FB 003CS CALLS #5, LIBSSIGNAL : 
04 003CC RET : 1789 
0000 CD 38$: «WORD Save nothing : 1696 
7E D4 OO3CF CLRL 0s = (SP) ; 
5E DD 00301 PUSHL SP : 
7E 04 AC D 00303 MOV. 4(AP), =(SP) : 
0000v CF 03 FB 00307 CALLS #3, teron® SHANDLER ; 
04 0030¢ RET ; 


3; Routine Size: 989 bytes, Routine Base: SCODES + 0513 


3 1265 1790 1 
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ref ROUTINE MAKE_TAPE_MOUNT = 

4 - 

r FUNCTIONAL DESCRIPTION: 

7 This routine does the data base manipulation to get a 
74 volume mounted 


CALLING SEQUENCE: 
MAKE_TAPE_MOUNT (), called in kernel mode 


INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


mount parser variables 
own variables in this “aedule 


> > > >>> >>| 
oo iO 
SESSSPoN eS See eR OSS 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
le 


1 1 1 

1 1 1 

1 1 1 

1 1 1 

1 1 1 

1 1 1 

1 4 1 

1 1 1 

1598 1800 4 

RET 

a 

we BBE 

ee 

1285 1 1 

1 Hy] 1319 1 OUTPUT PARAMETERS: 

: bs ' 1) } NONE 

128 1818 1 ! IMPLICIT OUTPUTS: 

tS Yt aoe 

} 35 : 18 : eeetien ere 

: 4 ; \8 : eaber status codes 

1 39 1820 1 ! SIDE EFFECTS: 

1598 1852 4 site 

1299 18 5 1 ! USER ERRORS: 

1 1824 1 NONE 

133) 1825 1 

1 § 18 $ 1 

130 \s 1 

1 She ! ; BEGIN 

1 oS 13 0 EXTERNAL 

1 1831 OWNER_UIC, ' owner UIC from command Line 
4 1 ¢ PROTECTION, i protection from command Line 
1 1 REAL_MV : REF BBLOCK, i real MVL 

1310 1 REAL_RVT REF Hehe ; ree} RVT 

1311 1835 REAL_VCB REF BBLOCK, eal vVCB 

1 \¢ 1 SCHSGL_CURPCB : REF BBLOCK ADDRESSING foot (ABSOLUTE) , 
! : USER_UIC; user UIC from command Line 
1315 1 5 LOCAL 

1 1g 1 9 PRIMARY_UCB : REF BBLOCK, ' primary UCB 
131 1 : REF BBLOCK, i as ucB 
1318 1 § PRIMARY_ORB : REF BBLOCK, mary ORB 
1319 1 : REF BBLOCK i Secondary ORB 
9 4 UCBLIST : REF VECTORCDEVMAX]; ' UCB List in RVT 
4 § 1 § ! Enable our condition handler. 

1 1 ! 
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1e$ep=1984 12:45:81 DISKSVMSMAS TER: CHOUNT -SRCIMOUTAP..832! 


ENABLE KERNEL_HANDLER; 
: get the UCB of the first channel in the volume set 


PRIMARY UCB = .PROTO_RVT C RVTSL “bhed: 1; 
PRIMARY-ORB = .PRIMARY -UCBCUCBSL-ORB 


: Setup ownership and protection 
if -MOUNT_OPTIONSCOPT_OWNER 1CJ 
THEN PRIMARY_ORBLORBSC Raat 
ELSE PRIMARY_ORBCORBSL_OWNER 
PRIMARY prac onesy PROT_16] = ! $OGW protection word 
IF ;MOURT OPTIONSLOPT PROT tecrib . . 
THEN ORIMRRY TORS ORBS$O_PROT NO ROTECTIONCO, 16> AND %X*FEOO' 

IF .MOUNT_OPTIONSCOPT FOREJ GNI . A OPTIONSCOPT_NOLABELJ 

THEN ORIMARY ORBCORBSO_PRO I 

ELSE PRIMARY “ORB ORBSW_ PROT TERS. V_PROT<0,16>; 
: Create real vCB 
REAL .VvCB = A LOcare ra ao LENGTH,0); 
REAL- VCBCVCB$B_TYPET] = DYNSC_VCB; 
CHSMOVE (VCBSK~ ~LENGTH=11. "PROTO, véB+11, .REAL_VCB+11); 
: If not foreign and no labels then allocate RVT and MVL 
iF NOT -MOUNT_OPTIONSCOPT_FOREIGN] AND NOT .MOUNT_OPTIONSCOPT_NOLABEL] THEN 


REAL_RVT = ALLOCATE_MEM (SBYTEOFFSET (RVTSL_UCBLST) + 
(.PROTO_RVTCRVTSB_AVOLS] * 4),0); 
REAL eyTenyise TYP 


CHSMOVE (.REAL~ =RVTERVTSU_SI sired <r Vphoto RVT#11, REAL _RVT#11); 
EAL_MVL ATE K TMVLSK_FIXL 


sttieeh 
FIRST_V_UIC; 


REAL PLEA, 58. TYPE) AYE: 
CHSMOVE (.REAL_MVL HVLSW_ size) = = 1 ePROTO_ MVL + 11,.REAL_MVL + 11); 
REAL _MVL AVL $L-VCB "REALS Mae 


»REAL"MVL; 

REAL _OCBCVCBSL a ettttee 
REAL_VCBEVCBSL BLOC 
REAL-VCBLVCBSL_ “VPFLS: 
REAL_VCBCVCBSL_VPFLJ; 


VL 
REAL-VCBCVCBSL_BLOCKFL 
REAL_VCBLVCBSL_BLOCKBL 
REAL-VCBLVCBSL_VPFL 
PADS” -vCcB VeBSL~ ~VPBL 


ALLOC_LOGNAME (0); 

: Set the “‘unload at dismount’’ characteristic in the UCB appropriately. 
PRIMARY _UCBCUCBSV_UNLOAD] = NOT .MOUNT_OPTIONS COPT_NOUNLOAD); 

; Check for data check requests at mount time 
BBLOCKCPRIMARY_UCBCUCBSL_DEVCHAR] ,DEVSV_RCK] = .MOUNT_OPTIONSCOPT_READCHECK]; 


ec aenor CAVLERVESB A NVOLSI * MVLSK_LENGTH) ,0); 
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18-Sep-1984 01:24: 3 ——s- VAX=11 Bliss-32 V4.0-742 

14-Sep-1984 12:45:31 DSK SVMEMAS TERS CMOUNT.SRCIMOUTAP. B32. 79° 
BBLOCKCPRIMARY ucBc UCBSL DEVC DEVSV_WCK] = .MOUNT_OPT ONSCOPT WRITECHECK]; 
IF NOT -MOUNT_OPTIONSCOPT_FOR Bae AND not .MOUNT_OPTIONSLOPT_NOLABEL] 


NBEGIN 
PRIMARY UCBCUCBSL_DEVCHAR] = .PRIMARY UCBCUCBSL_DEVCHAR] AND NOT DEVSM_REC; 
SE ATP (.PRIMARY_UCB,.REAL_VCB,AQBSK_MTA); 


ELSE 
ODB ¢ 
BRINKRY ae icase vCB) 
PRIMARY_UCBLUCBSL_ ~DEVCHAR] 
PRIMARY _UCBCUCBSL_DEVCHAR] 
UNLOCK_IODB (); 
END; 


*PRIARRY. ~Ueetucest DEVCHAR] OR 

(DEVSM_ DEVSM_FOR OR sDEvSA. REC); 
. PRIMARY ~UCBLUCBSL DEVCHARI 

NOT (DEV$M_DIR OR DEVSM_ splye 


IF .CLEANUP_ALLOCLO] THEN PRIMARY_UCBLUCBSV_DEADMO] = 1; 

IF NOT .WRITE_RING C 0 ) THEN BBLOCKCPRIMARY_UCBCUCBSL_DEVCHAR],DEVSV_SWL] = 
PRIMARY_UCB CUCBSW_REFC] = .PRIMARY_UCB CUCBSW_REFC) + 1; 

} Make allocation permanent 


i PRIMARY UCBCUCB$B_AMOD] = 0; 
SEND_ERRCOG (1,.PRIMARY_UCB) ; 


Now set secondary UCB values if needed 
if .REAL_RVT NEQ 0 
THEEGIN 
UCBLIST = = REAL RVTCRVTSL_UCBLST); 
INCR I F 1 TO .REAL _ROTCRVTSB. -NVOLS] -1 DO 
BEGIN 
UCB .UCBLISTC.1); 
ORB [UCBCUCBSL_ORB 
UCBCUCB$V_UNLOAD) -PRIMARY see tucésy UNLOAD); 
uCBLUCB ODI ! make allocation permanent 
“PRIMARY _ORBCORBSL “OWNER; 
“PRIMARY ORBLORBSW_PROTI; 
BtUcBsucb PRINRRY ~ UcBLUCB SW. DEVBUF SIZ]; 
rind UCBSC_ aia 
- STMARY UCBLUCBS _DEVDEPEND])<0,16>; 
UCBCUCBSL_DEVCHAR) = te CGEVSR 
My HOR DEVSM_DIR OR DEV$M_SDI); 
BBLOCKCUCBLUCBSL_DEVCHAR] gDEvSy ARC chy 
PRIMARY _UCBCUCBSL_DEVCHAR] ,DEV$V_RCK); 


BBLOCKCUCBCUCBSL _DEVCHAR Pare 
LOC KCPRIMARY -UCBCUCBS$L_DEVCHAR] ,DEV$V_WCKI; 
BBLOCKCUCBCUCBSL -DEVCHARI, oDEVSV. REC] 
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| 
ee eneee=13be Pb eei ey NS imEMASTERSCMGUNT. SRCIMOUTAP.B32~4°" (85 
: 1438 1962 4 . CLEANUP ALLOCE.I) 9 Hee UCBCUCBSV_DEADMO) = 1; 
; 1673 1968 : if NOT .WRITE_RING C 0 ] THEN BBLOCKCUCBCUC P8S._DEVCHARI, DEVSV.swLJ = | 
: 1441 1965 4 UCB CUCBSW_REFC] = .UCB CUCBSW_REFC] + 1; | 
: i | 1298 4 
+ 144 1967 4&4 SEND_ERRLOG (1,.UCB); 
> 1446 1968 END; 
3 1445 1969 END; 
;: 146g 1970 
3 144 1971 ENTER_LOGNAME (.PRIMARY_UCB,.REAL_VCB); 
3 1448 1978 CTLSGC_VOLUMES = .CTLSGC _VOLUMES 1; 
: 1449 197 
: 1450 1974 RETURN 1; 
3; 1451 1975 1 END; ! end of routine MAKE_TAPE_MOUNT 


~EXTRN CuNER UIC, an hey 
-EXTRN REAL_AVL, R 

-EXTRN REAL_VCB, SEHSCL CURPCB 
SEXTRN USER-UIC 


OFFC 00000 MAKE_TAPE MOUNT: 
GORD 
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x Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1791 
58 00006 CF 9E 00002 MOVAB REAL_V : 
SA 99006 CF FE 90007 MOVAB MOUNT VOPTIONS. R10 ; 
6D 0205 CF DdE 0000C MOVAL 1 FP + 1828 
0000" CF DO 00011 MOVL PROTO_RVT+68, PRIMARY_UCB ; 185¢ 
1¢ AZ DO 00016 MOVL 2gCPRTRARY utB), PRIMARY _ORB + 185 
07 02 AA 02 €1 OOO1A BBC MOUNT_OPTIONS+ : 1857 
68 0000G CF DO OOOTF MOVL OWNER UIC? (PRIMARY *oRB) : 1858 
05 11 00024 BRB : 
68 0000" CF DO 00026 i$: MOVL FIRST VIC, (PRIMARY _ORB) + 1859 
0B AB 01 88 0002B 2$: BISB2 » 1TCPRIMAR ORB) + 1861 
0B 02. AA 01 €1 000¢F BBC MOUNT T OPTIONS + 1862 
18 «AB 00006 CF OOFF 8F AB 000 B1Cw3 #1; HOU pRovec ion’ 3F cPRIMARY _ORB) + 1863 
18 11 00030 BRB 6$ F 
05 01 AA 03 £0 O003F 3$: BBS #3, MOUNT_OPTIONS+1, 4$ + 1865 
08 01 AA 04 €1 00044 BBC #4. MOUNT~OPTIONS+1, 5$ ; 
18 AB FFOO BF 80 00049 4$: OV #-256, 24TPRIMARY_ORB) + 1866 
18 AB 0000' CF B60 90031 5$: MOVW FIRST_V_PROT, 24(PRIMARY_ORB) 3 1867 
7E D4 00057 6$: CLRL = = (SP) : 1871 
7E EC 8F 9A 0059 MOVZBL ' 6, =(SP) : 
00006 CF 08 FB D ALLS , Rea ican : 
68 5 b0 0062 MOVL ase ; 
0A AO 11 90 0006 MOVB nb, 10(RO) F 1872 
0B AO 0000' CF 00E1 8F 28 00069 MOVC3 ie SRoro VCB+11, 11(RO) > 187 
03 01 AA 03 a O07¢ BBC MOUNT_OPTIONS+1, 7$ : 1877 
00 1 007 BRW ; 
7E 01 AA 04 EO 0007A 7S: BBS ef MOUNT_OPTIONS+1, 8$ : 
E D4 O07 CLRL 0. = (§P) : 1879 
50 0000" CF 9A 0081 MOVZBL PROTO_RVT+11, RO > 1880 
7E 50 2 8 0086 ASHL # -(SP§ > 1879 
: 6E 00000064 BF C 00 A ADDL2 #68, ; 
* 90006 CF ; FB 0091 CALLS #2, ALLOCATE_MEM : 
000G CF DO 00096 MOVL RO, REAL_RVT : 


pes do 1 
| 
| MOUTAP 16-Sep-1984 01:24:03 VAX=-11 Bliss-32 V4.0-742 Page 43 
¥o%-d0 eee ea ee Pa ey State eee eee ee amoutap.esert” cos 
OA AO 0€ 90 00098 MOVB #14, 10(RO) : 1881 
21 08 Ab : oor MOVZWL 8(RO), RI : 1882 
1 B ¢ 00A3 SUBL¢ wii, R1 : 
0B Ad 0000" CF 1 O0A6 MOVCS 1, PROTO_RVT#+11, 11(RO) : 
E pA OOAD CLRL. 0 = (§P) + 1883 
50 0000" CF A QOOAF MOVZBL PROTO_MVL+11, RO : 1884 
7E 50 3 78 00084 SHL a3 RO, -<(SP5 + 1883 
6E 4 CO 000B8 ADDL2 #36, (§P) : 
00006 CF é FB 0008 CALLS 2, ALLOCATE_MEM : 
00006 ct 50 DO 000C MOVL RO, REAL_MVL : 
é 00006 CF 00 000C MOVL REAL _MVL R6 + 1885 
OA As 16 20 OO0CA MOVE #22, ~10(R6) : 
5 08 A 00¢ MOVZWL 8(R6), RO + 1886 
50 08 5 000D SUBL ¢ 11, ; 
0B Ab 0000" CF 5 000D MOVC3 RO, PROTO_MVL+11, 11(R6) : 
50 6B DO 000DC MOVL §REAL_VCB,~RO + 1887 
66 50 DO O00DF MOVL RO, TR ; 
0 Ad 00006 CF 00 OO0E2 MOVL  REAL_RVT, 32(RO) + 1888 
4 Ad 56 DO OO0E MOVL  R6, 52(RO) : 1889 
60 50 DO OO0EC MOVL RO. (RO) + 1890 
04 AO 50 DO OOOEF MOVL RO, 4(RO) > 1891 
3c A 3¢ AO 9E OO0F3 MOVAB 60(RO), 60(RO) + 189 
40 =A € AO 9E 000FB MOVAB 60(RO). 64(RO) * 189 
7E D4 OOOFD 8$ CLRL. = SP) + 1896 
00006 CF 01 FB OO0FF CALLS #1, ALLOC_LOGNAME : 
50 01 AA 01 os EF 00104 EXTZV #2, #1, MOUNT_OPTIONS+1, RO 3 1900 
50 50 D2 0010A MCOML RO. RO ; 
65 A? 01 04 50 FO 0010D INSV. RO, #4, #1, 101(PRIMARY_UCB) : 
54 38 «=A? sO9E (00113 MOVAB 36 (PRIMARY UCB), + 1904 
50 04 AA 01 03 EF 00117 EXTZV #3, #1, MOONT OPTIONS+4, RO ; 
64 01 1E 50 FO 0011D INSV RO, #30, #1, : 
50 04 AA 01 04 EF 00122 EXTZV #4. #1, MOUNT_OPTIONS+4, RO > 1905 
64 01 1F 50 FO 00128 INSV RO, #31, #1, : 
15 01 AA 03 £0 0012D BBS #3, MOUNT _OPTIONS+1, 9$ + 1906 
10 01. = AA 04 £0 001 g BBS #4; MOUNT“OPTIONS*#1, 9$ : 
64 01 8A 001 BICB2 #1. (R4) + 1909 
03 0D 0013A PUSHL : 1910 
6B DD 0013¢ PUSHL REAL_VCB : 
57 DD 0013E PUSHL PRIMARY_UCB F 
00006 CF 03 FB 00140 CALLS #3, START_ACP : 
1¢ 11 00145 BRB 10$ : 1906 
000000006 00 06 FB 00147 9$ CALLS #0, LOCK_I0DB > 1914 
34 «AT 6B DO 0014 MOVL REAL cB 52 (PRIMARY _UCB) : 1915 
64 01080001 8F C8 0015 BISL2 #17301505, (R4) : 1917 
64 18 8A 001 BICB 24, (R4) + 1919 
000000006 00 00 FB 0015¢ CALLS #0, UNLOCK_IODB : 1920 
04 00006 CF i 00163 10$:  BLBC CLEANUP ALCOC, 11$ + 1923 
65 A7 04 88 00168 BISB2 #4, 101TPRIMARY_UCB) : 
04 0000' CF ES 0016¢ 11$: BLBS  WRITE_RING, 12$ : 1925 
03 AG 0@ 8 00171 BISB2 a3 R4) : 
5c 6A? «BS 00175 128: INCW 92¢PRIMARY_UCB) : 1927 
57 DD 00178 PUSHL PRIMARY_UCB : 1932 
01 DD OO17A PUSHL # ; 
00006 cf 02 F o17¢ CALLS #2, SEND _ERRLOG : 
0 00006 cf dO 00181 MOVL §REAL_RVT> RO : 1936 
A 1 o1 BEQL 17S : 
52 44 AO 9E 001 MOVAB  68(RO), UCBLIST : 1939 
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16-Sep-1984 01:24:03 VAX=11 Bliss-32 V4.0-742 Page 45 MRE 
127808-1 3c 04:36:93 DISKSVMSMAS TER: CMOUNT . SRCIMOUTAP.B32:1> ¢ v0é 
ROUTINE KERNEL_HANDLER (SIGNAL, MECHANISM) : NOVALUE = 
1+ 
FUNCTIONAL DESCRIPTION: 
This routine is the condition handler for all of the kernel mode 
code. It undoes any damage done so far and returns the error 
status to the user mode caller. 


CALLING SEQUENCE: 
KERNEL_HANDLER (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: address of signal vector 
ARG2: address of mechanism vector 


IMPLICIT INPUTS: 
global pointers to blocks allocated 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
stack unwound, allocations undone 


BEGIN 
MAP 
SIGNAL : REF BBLOCK, ! signal vector 
MECHANISM : REF BBLOCK; ! mechanism vector 
LOCAL 
UCB : REF BBLOCK, 
ORB : REF BBLOCK, 
P : REF BBLOCK; ! pointer to scan system lists 
EXTERNAL 
MAILBOX CHANNEL, ! channel number of ACP mailbox 
REAL_VCB : REF BBLOCK, ! address of VCB allocated 
REAL_RVT REF BBLOCK, ! address of FCB allocated 
REAL_MVL REF BBLOCK, ! address of window allocated 
EAL_AQB : REF BBLOCK, ! address of AQB allocated | 
MTL_ENTRY REF BBLOCK, ! address of mounted volume List entry 
IOCSGL_AQBLIST REF BBLOCK ADDRESSING_MODE (ABSOLUTE); 
! system AQB List 
EXTERNAL ROUTINE 
LOCK_10DB : ADDRESSING_MODE (GENERAL), ! interlock system i/0 database 


< 
= 
> 
wv 


SSEP2P2eR oc Scsss 


WANA RIPININININIMNINY 2 2 PO OO Oe ee 
PAA E FELL LLL 


POPIPOPIPOPOPININIPINONIN Non Nononononofnunsnornrorornrn 


po fojeleleleloeloleloleololo) 
=O OONAULS WN ( O OONAYL EW" OOONOULW 


UVVUV EEE 
SSSSSSOSS 
Oui kw 


MAMMA VIMVIVIUIT EE BS BELLE EE ose“ys 
CoCo 6808 INI NNN NS 


AAAS 


WN —OCONOUSWN 0 0On 


ee ee ee ee ce ee a em ee el ce el a a el el el el ee i me le a cel el el ll ce el ee ee el ee cl ce ee ee ed ed ed 
Pw Teale lea lal eal sl al al al al eal ab ab ah ab ah ab al ah ah sh ab sh ah ah ad ad ad ah al eabeal ea lealelealelelelwalw ew eee ew eee eee el 
HAA A ANAA. AAA NINA BB NIE BEE EB BWW NINE ANI IIIInnononofponononorny) 


PROPIPOPIPOPINININPNMNNNoNy 


SOOOOCCOOOOOoOSoO 


SHVOnE 


1 
1B-se -1984 01:24:03 VAX-11 Bliss-32 V4.0-742 Page 46 
1 ~307 1382 OF: 28:03 DISKSVMSMAS TER: CMOUNT . SRCIMOUTAP.B32:1°> (9) 
UNLOCK _IODB : ADDRESSING_MODE (GENERAL), ! unlock system I/0 database 
DEALLOCATE_MEM; ! deallocate system dynamic memory 
Deallocate whatever control blocks exist to wherever they came from. 


ff, SUGHALCCHFSL_SIG_NAMES NEQ SS$_UNWIND 
BEGIN 
IF_ .SIGNALCCHF 
THEN BUG_CHECK 
' If there is ama 
deleting the mai 


$L_SIG_ARGS] NEQ 3 


S 
ONXSIGNAL, FATAL, ‘Unexpected signal in MOUNT’); 
box in existence, deassign its channel, thereby 
Ox 


L 
( 
il 
lb 
Fh ee FREE PO WaR 
SDASSGN (CHAN = .MAILBOX_CHANNEL); 
! If we have created an AQB but no ACP, we must remove the AQB from the 
: system List. 
IF .CLEANUP_FLAGSCCLF_DELAQBJ 
THEN 
BEGIN 
LOCK_IODB (); 
P = ,JOCSGL_AQBLIST; 
ek EQL -REAL_AQB 
gg CORAL IST = .REAL_AQBCAQBSL_LINK) 
BEGIN 
UNTIL .PCAQBSL_LINK] EQL .REAL_AQB DO P = .PCAQBSL_LINK); 
PLAGBSL LINK = .REAL_AQBCAQBSC_LINK); 
DEALLOCATE_MEM (.REAL_AQB, 0); 
UNLOCK_IODB (); 
END; 
IF .REAL_VCB NEQ 0 
THEN DEACLOCATE_MEM (.REAL_VCB, 0); 


IF .REAL_RVT NEQ 0 
THEN DEACLOCATE_MEM (.REAL_RVT, 0); 


IF .REAL_MVL NEQ 0 
THEN DEACLOCATE_MEM (.REAL_MVL, 0); 


IF .MTL_ENTRY NEQ 0 

THEN DEALLOCATE_MEM (.MTL_ENTRY, 1); 
' 
! Cleanup protection on primary UCB 


Se BeBe Se Se Se Se Se Se Se Se Se Se Se Se Se Fe ee Se Se Se Se Se Se Fe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe ee Se Sete SHGe Se Se Se aseas 


: 1567 090 ! 

: 1808 833 UCB GET  CHANNELUCB, (CHANNEL) 

; 1390 838 ORB = UeBtuCBSL-0 

; 1571 094 ORBCORBSL_OWNER) = 0; 

3 1208 095 ORB ORBSL_SYS_ ROT] = : 

: 157 99 ORBCORBSL-OWN-PROT] = 0; 

: 1874 09? ORBLORBSL_GRP_PROT) = : 

: 1575 098 ORBCORBS$L_WOR “PROT) = : 

: 1576 099 UCBCUCBSL_VCBI = 0; 

: 1877 100 

; 1578 101 ! Return the condition code in RO. 

1880 108 3° 

3; 1581 104 wk fs gd -MCH_SAVROJ] = .SIGNALCCHFSL_SIG_NAME); 

: 1386 105 SUNWIND () 

; 158 106 

: 1584 107 END; 

3; 1585 108 1 END; ! end of routine 
~EXTRN 
~EXTRN 
eEXTRN 
~EXTRN 
EXTRN 

000C 00000 KERNEL HANDLER: 
53 00000000G 9F 9E 00002 MOVAB 
52 0000G CF 9E 00009 MOVAB 
50 04 AC DO 0000 MOVL 
00000920 =8F 04 AO D1 0001 CMPL 
01 12 OOO1A BNEQ 
04 0001C RET 
03 60 D1 0001D 1$: CMPL 
04 13 000 BEQL 
FEFF 000 BUGW 
aw 0024 . WORD 
0B 0000G CF 03 €1 00026 2$: BBC 
0000G CF DD 0002C PUSHL 
000000006 00 01 FB 00030 CALLS 
0000G CF 8 E1 8 7 3$: BBC 
000000006 00 FB D CALLS 
50 63 DO 00044 MOVL 
51 00006 gf DO 00047 MOVL 
51 0 D1 4C CMPL 
06 12 4f BNEQ 
63 10 Al 00 bal MOVL 
11. 11 00 23 BRB 
51 10 Ad O01 : 4$ CMPL 
08 13 2B BEQL 
50 10 Ad 00 D MOVL 
F4 11 BRB 
10 A0 10 Al 00 5$: MOVL 
7E D4 6$: CLRL 
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KERNEL_HANDLER 


RAILBOX CHAE 
AQ 


rocste AGBL IST” NDEALLOCATE _MEM 
BUGS URXSIGNAL SYSSDASSGN~ 


SYSSONWIN 


Save R2,R3 

a#lOC$GL “ge ae R3 
DEALLOCA ATE_ » R2 
SIG 
4(R 
1$ 


syues UNXS 1GNAL : 4> 
CCEANUP FLAGS, 3$ 
X_CH HARNEL 


» SYSSDA 

° BleaMue FLAGS. 7$ 
LOCK 1008 

#0; 10 AGBLIST, P 

AL = AGB. RI 
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1 
MOUTAP 16- Sep-1984 01:24: VAX-11 Bliss-32 V4.0-742 

v04-000 eae en TBs Pb eee Weeks steR heute tecamourap.ase0te* 
51 DD OO06A PUSHL R1 $ 

ee 08 FB C CALLS We, DEALLOCATE_MEM : 

000000006 2 F F CALLS B UNLOCK {008 é 
0 00006 CF D 0 6 7$: MOVL REAL_VCB, R : 

97 1 7B BEQL : 

5 5 suai,” : 

68 02 F a98h CALLS Ro DEALLOCATE _MEM : 

5 00006 CF DO 00084 8$: MOVL REAL_RVT, RO ; 

97 1 00 9 BEQL : 

2 | 

62 3 F F CALLS RS DEALLOCATE_MEM : 

5 00006 CF D 009¢ 9$: MOVL REAL _MVL, RO : 

97 13 0009 BEQL 10$ : 

E D4 00099 CLRL -(SP) : 

39 DD 00098 PUSHL RO : 

$¢ 0 FB 00090 CALLS #2, DEALLOCATE_MEM é 

5 00006 CF D0 9000 10$:  MOVL MTL_ENTRY, RO : 

07 13 OOOA BEQL 11$ : 

8) Db O00AS pusnt OR 

62 02 FB S008 CALLS ae DEALLOCATE_MEM : 

00006 CF DD OOOAE 11$: PUSHL CHANNEL ; 

0000G CF 01 FB 44 t4 CALLS #1, GET_CHANNELUCB : 

51 1¢ AO DO 000B MOVL § 28(UCB)> ORB : 

61 04 00088 CLRL —- CORB) : 

18 Al 7C OQOOBD CLRQ §3 (one) é 

0 Al 7¢ 000C0 CLROQ (ORB) : 

4 AO bs 000¢3 CLRL  52¢UCB) : 

50 04 AC D 000C6 MOVQ SIGNAL, RO 3 

Oc Al 04 AO DO OOOCA MOVL  4(RO), 12(R1) ; 

7E 7C OOOCF CLRQ =(SP) ; 

000000006 00 02 FB 00001 CALLS #2, SYSSUNWIND ; 
04 00008 ET : 


; Routine Size: 217 bytes, Routine Base: S$CODE$ + 0B15 
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1 
iersen19ge 95:26:03 yard, 
ROUTINE ERROR_HANDLER (SIGNAL, MECHANISM) = 
ha 
i FUNCTIONAL DESCRIPTION: 
This routine clears the valid bit for all but current UCB. 


CALLING SEQUENCE: 
ERROR_HANDLER () 


INPUT PARAMETERS: 
NONE 
! IMPLICIT INPUTS: 
PROTO_RVT = Lists all UCB's 
! OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


SIGNAL : REF BBLOCK, ! signal vector 
MECHANISM : REF BBLOCK; ! mechanism vector 


LOCAL 
STATUS 
UCBLIST : REF VECTOR: 


If _,BBLOCKLSIGNALCCHFSL_S1G_NAME1,STSSV_SEVERITYJ EQL STSSK_SEVERE 
BEGIN 
UCBLIST = PROTO_RVTCRVTSL_UCBLST); 
DECR I FROM .PROTO_RVTLRVTSB_NVOLS] - 2 TO 1 DO 
STATUS = DO_I0™( CHAN = ; CHANNEL, 
FUNC = 10$ AVAILABLE 
Me 10SB = I10_STATUS (OJ5; 


RETURN SS$_RESIGNAL; : 
END; ! end of routine ERROR_HANDLER 


0-742 Page 49 
NT.SRCIJMOUTAP.B32;1 (10) 


0004 00000 ERROR_HANDLER: 


kK 1 
12 ep. 1982 93: 3: 8 DL eKSVMSHAS FER-EMOUNT. SRCIMOUTAP. 832; i 


WO Save R2 
30 04 4 dO 68 MOVL er RO 
0 g Fo CMPZV #0, #5, 4(RO), #4 
C C BNEQ 3$ 
29 Q0000' CF 9E 0 MOVAB PROTO_RVT+68, UCBLIST 
0000' gf GA 4 MOVZBL PROTO_RVT+11, I 
2 07 1 DECL J 
1B 11 QOO1A BRB $ 
7E 7C QOOIC 1$ CLRQ -(SP) 
43 7C 4h CLRQ -(SP) 
—E 7C¢ CLRQ -(SP) 
7E 7C 000 CLRQ -(SP) 
0000° CF 9F 00024 PUSHAB IO_STATUS 
11 DD 00028 PUSHL #17 
0000G CF DD O002A PUSHL CHANNEL 
1A DD B89 PUSHL a6 
000000006 00 96 Fe 00 CALLS #12, COMMON_IO 
2 F5 000 $$ SOBGTR I, 1$ 
0 0918 8F 3C 0003A 3$ MOVZWL #2328, RO 
04 0003F RET 
; Routine Size: 64 bytes, Routine Base: S$CODES + OBEE 
; 1640 gi6¢ 1 
3; 1641 216 1 END 
: 1642 2164 0 ELUDOM 
-EXTRN LIBSSIGNAL, LIBSSTOP 
3 PSECT SUMMARY 
; Name Bytes Attributes 
; SOWNS 668 NOVEC, WRT, RD ,NOEXE.NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS 292 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 311 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Be raee A ne ee pe | ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
> _$255$DUA28:(SYSLIBILIB.L32;1 18619 156 0 1000 00:02.0 


710) 


1 BLi erie V4.0-742 
VMSMASTER: CMOUNT . SRC JMOUTAP B32; 


$ep-1984 VAX=-1 

1B-sen-1986 01:24:05 vaKey 
COMMAND QUALIFIERS 

BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:MOUTAP/OBJ=0BJ$:MOUTAP MSRC$:MOUTAP/UPDATE=(ENH$:MOUTAP) 


; Size: 3118 Se e + 960 data bytes 
Run Time 258. 
Elapsed Time: 01:4 
Lines/CPU M 


Deets Bias Be 2 
ry Used: 346 oh 
Compilation Complete 


ry 
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